1. Concepte fundamentale de programare cu exemple 
VisualBasic 


În dezvoltarea oricărei aplicaţii informatice, de obicei, se parcurge o succesiune bine 
definită de paşi care porneşte de la identificarea şi analiza cerințelor problemei şi se termină 
cu lansarea în exploatare şi întreținerea sistemului (figural-1). Este un fel de a spune “se 
termină” pentru că munca echipei de dezvoltare nu se termină decât odată cu ieşirea din 
exploatare a aplicației. De obicei, primele trei activități şi ultimele trei sunt realizate de 
analişti şi proiectanți de sistem, programatorilor fiindu-le rezervată sarcina de a 
implementa(transpune) într-un limbaj de programare, într-o manieră cât mai optimizată cu 


putinţă, specificațiile tehnice obținute de la echipa de proiectare a modulelor. 
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Figura 1-1 Secvența de activități ce o presupune dezvoltarea unei aplicații informatice 


A programa înseamnă în fapt a scrie secvențe de cod ce implementează un anumit 
algoritm într-un limbaj de programare. Există accepțiunea generală că : 


Algoritm +limbaj+ structuri de date = program 


1.1. Definitii ( algoritm, date, program, structuri de date). 


Dicţionarul de Informatică defineşte algoritmul ca “un concept folosit în mod intuitiv 


pentru a desemna o multime finită de operații (instrucțiuni, comenzi) cunoscute, care 


exexcutate într-o ordine bine stabilită pornind de la un set de valori (intrări), produc în timp 


finit un alt set de valori (ieşiri)”. Noţiunea de elgoritm este foarte bine descrisă chiar de 


caracteristicile esenţiale ale acestuia: 


1. 


Finitudine. Un algoritm trebuie întotdeauna să se încheie după un număr finit de 
paşi. 
Claritate. Fiecare pas al unui algoritm trebuie să fie bine definit; acțiunile ce 
trebuie executate vor fi riguros specificate într-o manieră care să elimine orice 
ambiguitate. Pentru ca un algoritm să poată fi înțeles de oricine, reprezentarea 
operațiilor trebuie cumva formalizată. În acest sens se poate apela la : 

a. un limbaj astfel formalizat încât să fie universal valabil : scheme logice şi 

pseudocod; 
b. un limbaj de programare (Java, VB, C++, etc...) în care fiecare instrucțiune 
are un înţeles bine delimitat; 

Intrări. Un algoritm poate avea zero sau mai multe date de intrare, valori ce îi sunt 
furnizate fie la momentul inițial (înainte ca algoritmul să înceapă să se execute), 
fie în mod dinamic, pe măsură ce algoritmul se execută. 
Iesiri. Un algoritm poate avea una sau mai multe valori de ieşire, ca rezultat al 
operaţiilor execute pe parcursul execuției asupra datelor de intrare (dacă acestea 
există) 
Eficacitate. algoritmul prelucreaza datele initiale si furnizeaza rezultatul scontat; 
Determinism. Orice algoritm trebuie să fie astfel specificat încât întotdeauna un 
procesor (fie calculatorul fie o persoană cu un creion şi o foaie în mână) să poată 
obține în mod repetat exact aceleaşi date de ieşire dacă aplică operaţiile precizate 


asupra aceloraşi date de intrare. 


lată un exemplu de algoritm pentru determinarea rădăcinii ecuaţie de gradul 1: 


Analiza problemei: forma generala a unei ecuatii de gradul I este ax+b=0. Datele de intrare 


vor fi coeficientii ecuatiei: a si b. Datele de iesire (rezultatul prelucrarii): 


- radacina x a ecuatiei sau 


- un mesaj ("x real" sau "nu exista solutie") 


Procesul prelucrarii datelor de intrare (algoritmul) poate fi descris astfel: 


PAS 1. Se introduc (=se citesc) valorile coeficientilor a, b; 


PAS 2. Daca a=0 si b=0 atunci se afiseaza "ecuatia are o infinitate de solutii !"; 


PAS 3. Daca a=0 si b<>0 atunci se afiseaza "ecuatia nu are solutii !"; 


PAS 4. Daca a<>0 atunci solutia este x= -b/a; 


PAS 5. Afiseaza valoarea lui x; 


Datele sunt elemente esențiale ale unui algoritm. Asupra lor se aplică operaţiile. Datele 
sunt în sine valori cu o anumită semnificație pentru procesor (cel care mânuieşte algoritmul). 
In memoria calculatorului orice dată apare ca o succesiune de biti. Modul in care pentru o 
astfel de succesiune se asociază o valoare depinde de interpretarea ce i se dă. Datele pot fi: 

e elementare : data apare ca o entitate indivizibilă din punct de vedere al valorii - 
aici includem: simboluri (litere sau caractere speciale ) şi numere 

e structurate: colecție de date elementare sau date structurate organizate într-o 
anumită manieră pentru a reprezenta într-o formă abstractizată anumite noțiuni 
din lumea reală; iată câteva tipuri de date structurate (sau structuri de date): 
tablouri unidimensionale sau multidimensionale, liste, arbori, fişiere etc. 


Datele structurate vor fi abordate pe larg într-o secțiune separată 


1.1.1. Reprezentarea datelor elementare în memoria RAM 


Deşi prin utilizarea unui limbaj de nivel înalt (VB, FoxPro, Java, C, Delphi, etc...) datele 
elementare sunt manipulate într-o manieră mult simplificată din perspectiva utilizatorului 
limbajului respectiv, orice programator ştie că la nivelul sistemului de calcul toate 
instrucțiunile şi datele ce alcătuiesc un program sunt convertite în şiruri de biti (şiruri de 
valori 0 şi 1). În cele ce urmează vom prezenta tehnicile de bază prin care datele elementare 
(simboluri şi numere) sunt reprezentate în memoria internă a calculatorului. 

Reprezentarea simbolurilor (litere şi caractere speciale) 

O metodă de a reprezenta datele la nivelul sistemului de clacul constă în proiectarea unui 
sistem de coduri în care fiecărui simbol i se asociază o combinaţie unică de biti. În vremurile 
de început ale tehnologiei informaţiei au existat mai multe astfel de sisteme de codificare, 
multitudinea lor promovând ambiguitate şi dificultăți în încercările de comunicare între mai 
multe sisteme de calcul. Pentru a elimina această situație se impunea adoptarea unui sistem 
standard care să fie implementat de toți producătorii de sisteme hardware şi software. 

În anii '70 American National Standards Institute (ANSI) a dezvoltat sistemul de 
codificare ASCII - American Standard Code for Information Interchange - care a devenit in 
scurt timp extrem de popular şi care este utilizat pe scară largă şi astăzi. Initial acest sistem 
de codificare utiliza un model de 7 biti (o înşiruire de 0 şi 1) pentru a reprezenta literele mari 
şi mici ale alfabetului englez, caracterele de punctuație, cifre de la 0 la 9 şi anumite informaţii 
de control. Astăzi ASCII reprezintă simbolurile printr-o combinaţie unică de 8 biti care nu 
numai că se poate stoca foarte uşor în memorie (celulă de memorie= 1 byte (octet) =8 biti) dar 
oferă posibilitatea reprezentării unui număr de 256 (28)de simboluri diferite, suficiente 
pentru a reprezenta spre exemplu toate caracterele ce pot fi introduse prin intermediul 
tastaturii. Spre exemplu, dacă utilizăm harta de coduri ASCII (www.ansi.org ), şirul de 


caractere “Hello” va fi reprezentat astfel: 


N A 01101100 01101100 01101111 00101110 
qo AA A VA Ya 


Pe lângă ASCII, care este cel mai utilizat sistem de codificare la momentul actual, există şi 
alte sisteme care oferă posibilitatea reprezentării caracterelor într-o manieră mult mai 
extensivă. Spre exemplu, sistemul de codificare UNICODE (dezvoltat ca urmare a cooperării 
între liderii de piaţă în industria hardware si software) utilizează 16 biti pentru a reprezenta 
în mod unic un caracter oferind astfel 65536 (216) de combinaţii unice, suficiente pentru a 
acoperi necesitățile alfabetelor chinezesc şi japonez. 

Reprezentarea valorilor numerice 

Metoda de stocare internă a informației sub formă de combinaţii unice într-un sistem de 
coduri este totuşi ineficientă atunci când datele reprezintă valori numerice. Astfel, dacă ar fi 
să apelăm la ASCII pentru a reprezenta numărul 37, ar fi necesari 16 biti (2 octeți) , câte un 
octet pentru fiecare cifră. Prin această tehnică un număr mai mare de 99 nu va putea fi stocat 
într-un interval de 16 biti. O abordare mult mai eficientă ar fi reprezentarea numărului nu în 
baza zece (cifre de la 0 la 9 ) ci în baza doi (0 şi 1). 

Sistemele de numerotaţie utilizează în general o asociere pozitie-cantitate, cu alte cuvinte 
poziția unei cifre într-un număr determină semnificația acelei cifre. Spre exemplu 
semnificația numărului 375 în baza zece se obține inmultind fiecare cifră cu 10 la puterea 1, 
unde 7 este indicele de poziție numărând de la dreapta la stânga începând cu 0, astfel: 
3x100+7x10+5x1 

Notatia binară este utilizată pentru a stoca numere prin intermediul a doar două cifre: 0 
şi 1. În mod similar sistemului zecimal, pentru a obține semnificația numărului, vom efectua 
suma cifrelor ponderate cu factorul de poziţie. Fiecărei cifre (0 sau 1) i se asociază un factor 
reprezentând o putere a lui doi, astfel: cifra cea mai din dreapta se inmulteste cu 20 , 
următoarea cifră spre stânga se inmulteste cu 2! , următoarea cu 22 ş.a.m.d. Astfel, numărul 
37 poate fi scris în baza doi: 100101 = 1x25+0x24+0x23+1x22+0x21+1x20 = 32+0+0+4+0+1=37. 
Cu alte cuvinte, numărul de biti utilizați pentru a reprezenta numărul se reduce de la 16 (în 


ASCII) la 6. Următorul exemplu constituie înşruirea numerelor de la 0 la 8 în baza 2: 


Pentru a obține reprezentarea unui număr în baza doi (din baza zece) apelăm la 
următorul algoritm: 

Pas1 - împarte numărul la 2 şi păstrează restul; 

Pas2. - cât timp rezultatul împărțirii nu este 0 continuă sa imparti noul rezultat la 2 şi 
memorează restul; 

Pas3. - o dată ce s-a obţinut un rezultat =0 al ultimei împărțiri, reprezentarea binară a 
numărului se obține prin aşezarea resurilor obținute anterior în ordine de la dreapta la 
stânga începând cu primul rest obținut (acesta va fi cel mai din dreapta). 

lată un exemplu de aplicare a algoritmului pentru numărul 13 (în sistem binar 
reprezentat ca 1101): 

(1) 13/2=6 > rest= 
(2) 6/2 = 3 > rest= 
(3) 3/2=1 > rest= 


(4) 12=0 > rest=1 
(ultimul cât = 0 stop) 


— 


101 


Ca urmare a adoptării acestui sistem, un byte (8 biti) poate stoca numere de la 0 la 255 
(00000000 la 11111111) iar prin intermediul a doi octeți putem stoca numere de la 0 la 65535. 
Obtinem astfel o îmbunătăţire drastică față de utilizarea sistemului ASCII unde pe doi octeți 
puteau fi reprezentate doar numere în intervalul 0-99. 

În practică, datorită complexităţii generate de reprezentarea numerelor mari, a semnelor 
pentru pozitiv / negativ şi a numerelor zecimale, sistemul binar prezentat anterior constituie 
doar baza unor sisteme de reprezentare ceva mai complicate. Astfel, există notația celor două 
coplemente (pentru numere pozitive/negative) şi notația în virgulă mobilă (pentru numere 


zecimale). Analiza detaliată a acestor sisteme depăşeşte însă scopul acestui curs. 


1.1.2. Variabile,pointeri, literali, constante. Operații fundamentale în 
algoritmi 
Datele unei probleme apar în algoritmi sub formă de variabile. În informatică varibila 
reprezintă un nume atribuit unei adrese (celule) de memorie care stochează o valoare. 
Spunem astfel, că varibila identifică valoarea respectivă. Noţiunea de variabilă este folosită şi 
în matematică. De pildă, spunem că f(x, y)>2x+3y+5 este funcție de două variabile 
independente x şi y. În programare, noțiunea de variabilă are un înţeles putin diferit. Mai 
exact, o variabilă poate lua valori dintr-o mulțime bine precizată, care, ca şi în matematică, se 
numeşte domeniul de definiție al variabilei, dar la un moment dat variabila are o valoare bine 
precizată. 
O varibilă este caracterizată de: 


e Nume 


e Tipul datei (domeniul de valori - acele valori care pot constitui la un moment dat 
valoare curentă) 


e Valoare curentă 


Fiecărei variabile i se asociază un nume. Variabila se identifică în algoritm cu acest nume. De 
aceea, numele, se mai numeşte şi identificatorul variabilei. Numele de variabile din algoritmi 
apar şi în programe. După ce un program se lansează în execuție, fiecărei variabile i se 
rezervă în memoria internă a calculatorului o zonă în care se înregistrează valoarea sa 
inițială. Această valoare se modifică pe parcursul execuţiei programului. Valoarea care se 
află la un moment dat în zona rezervată unei variabile se numeşte valoare curentă. 

Datele prelucrate de un algoritm trebuie să fie de un anumit tip. Tipul de dată este 
puternic influientat de limbajul de programare în care va fi scris programul. Ca urmare şi 
varibilele (prin care se manipulează acele date) vor avea un anumit tip. Majoritatea 
limbajelor de programare dispun de câteva tipuri standard de date. Dintre acestea 
menționăm tipurile numerice întregi, tipurile numerice reale, tipul logic şi tipul caracter. 
Tipurile numerice sunt compatibile între ele. Cu alte cuvinte, se pot determina valorile unor 
expresii în care apar tipuri numerice diferite. Nu se pot evalua însă expresii în care apar date 
numerice şi date logice, date numerice şi caracter sau date logice şi caracter. 

Noţiunea de tip de dată este una din noțiunile de bază utilizate în limbajele de 
programare. Declararea unui tip de date înseamnă în esenţă a preciza o mulțime de valori şi 
o mulțime de operaţii care se pot efectua cu valorile respective. 

Există însă şi varibile care nu conţin o valoare ci o adresă a unei valori. Aceste tipuri de 
varibile se numesc pointeri. Figura 1-2 prezintă într-o manieră simplificată diferenţa între o 
variabilă şi un pointer la nivelul memoriei interne. Astfel, variabila V1 va avea valoarea 1254 


iar varibila V2 va avea ca valoare adresa de memorie a valorii 1254, adică (Adr2). 


Variabila Pointer 
Nume Variabila + (TIP) (Adrl) V1+ (INTEGER) + (Adr8) V2+ (INTEGER) + 
+ Valoare (Adr2) 1254 (Adr9) (Adr2) 


Figura 1-2 Varibile si pointeri 


Asa cum se poate intui, in acest exemplu ambele variabile, V1 si V2, “lucreaza” cu aceeasi 
valoare, cu alte cuvinte intr-un algoritm, manipularea valorii 1254 se poate efectua prin 


intermediul oricăreia din cele două variabile. Într-un mod formalizat: 
V1 < 1254 
V2 € ADDR(V1) 
SCRIE V1 (se va afisa 1254) 
SCRIE V2 (se va afisa (Adr2)) 
SCRIE DEREF(V2) (se va afisa 1254) 


DEREF(V2)< 256 
SCRIE V1 (se va afisa 256) 


În algoritmul de mai sus prin DEREF specificăm faptul că se manipulează valoarea la 
care se referă (spre care punctează) variabila V2 şi nu valoarea în sine a acesteia care 
reprezintă o adresă de memorie (Adr2). 

Pe parcursul dezvoltării programelor, pot apare anumite date a căror valoare nu se 
schimbă pe parcursul execuţiei. Dacă respectivele date sunt utilizate în mod direct, folosim 
noțiunea de literal: x+2 > 2 este un literal. Dacă însă unui literal i se atribuie chiar de la 
începutul execuţiei programului un identificator (un nume), iar pe parcursul programului 
utilizăm acel nume (în mod similar variabilelor) în locul valorii explicite, spunem că am 
definit o constantă. Constantele dețin toate caracteristicile variabilelor (nume, domeniu, 
adresa) dar sunt mărimi care nu îşi modifică valorile în timpul efectuării calculelor. De pildă, 
într-un program pentru controlul traficului aerian la un aeroport, o mărime intens utilizată 
în calcule este altitudiunea aeroportului față de nivelul mării: să zicem 30m. Dacă utilizăm 
direct valoarea 30 în calcule, tranferul programului la un alt aeroport (plasat să zicem la 40m 
altit.) va implica modificarea tuturor liniilor de program ce utilizează valoarea respectivă. 
Dacă însă declarăm o constantă - AltitAeroport€ 30 - şi utilizăm această constantă în 
toate operaţiile de calcul, la tranferul programului nu va trebui decât să modificăm valoarea 
constantei AlLtitAeroport şi să rulăm aplicaţia. 

Aşadar, în orice algoritm manipulăm datele prin intermediul variabilelor şi a 
constantelor. 

Operatiile fundamentale ce se pot realiza într-un algoritm sunt: 

Operații de atribuire - determină asocierea unui nume (a unei variabile) cu o valoare. De 
multe ori valoarea poate să nu fie o cantitate în sine ci rezultatul evaluării unei expresii. O 
expresie presupune mai multe date cărora li se aplică operatori, spre exemplu operatori 
matematici (+, -, / , *, A (ridicare la putere)). Operația de atribuire este implementată cu 
notații diferite de la un limbaj la altul, dar într-o formă generală ea se notează cu “€” pentru 
a o diferenţia de operatorul logic “=” 

A€ 10 

B< 20 

C€ A+B 

Operații de decizie - prin care se determină valoare logică a unei propoziţii. Presupun 
utilizarea operatorilor relationali (=, <>, <>, #, <=, >=) şi, eventual, a operatorilor logici 
(AND, OR, NOT). Valoarea logică obținută se utilizează de obicei în cadrul unor structuri de 
control alternative. 

A€ 10 

B< 20 

IF A<>0 THEN 

R€ -B/A 

END IF 


Operații de Intrare/leşire - se referă la furnizarea unor valori iniţiale ale variabilelor (citire) 


prin intermediul unei componente externe algoritmului sau extragerea valorilor unor 


variabile şi furnizarea lor pentru afişare/ stocare pe un suport extern (scriere). 


1.2. Reprezentarea formalizată a algoritmilor. Scheme logice. 


Pseudocod. 


Există două modalităţi general adoptate pentru reprezentarea unui algoritm: 


e  Schemele logice - ansamblu de simboluri grafice ce permit reprezentarea sub formă 


grafică a unui algoritm. Simbolurile sunt standardizate din 1970 printr-un 


standard ANSI X35 


e Pseudocod - se materializează prin extragerea unui grup de cuvinte din limbajul 


natural prin care se traduc structurile de control fundamentale, fără a implementa 


o semantică strictă. Nu există un standard precum în cazul schemelor logice. 


Tabelul 1-1 prezintă în paralel elementele grafice ale schemelor logice şi cuvintele 


pseudocod esenţiale în reprezentarea algoritmilor. Menţionăm că nu sunt evidenţiate 


simbolurile pentru operaţii speciale definite de standrdul X35. De asemenea precizăm că 


pentru pseudocod au fost alese cuvinte în engleză (deşi puteau fi şi în română) datorită 


modului familiar de implementare în diverse limbaje de programare. 


Simbol schemă logică Pseudocod Semnificație 
BEGIN Început /sfârşit algoritm 
[ START J | STOP J END 
IF Cond THEN ... Bloc de decizie (se evalueaza 
EALSE TRU ELSE... condiția Cond). În pseudocod 
END IF trebuie evidențiat sfârşitul 
blocului 
A=B+C (sau) Operatie de atribuire şi 
A€BtC A<B+C evaluare expresii de calcul 
READ a,b,c Citeşte / Scrie valorile 
WRITE a,b,c variabilelor a,b,c... 
CALL Proc1 Apel de procedură 
=] A 


Reprezentarea unui algoritm fie prin intermediul schemelor logice (Aranjarea 


simbolurilor grafice într-o anumită ordine) fie prin pseudocod (enumerarea cuvintelor 


rezervate într-o anumită ordine) are la bază câteva structuri fundamentale de control ce 
sunt utilizate în diverse combinaţii pentru a rezolva orice problemă algoritmică: 
° structura secventiald - operaţiile se execută în ordinea apariţiei de sus în jos, 
e structura alternativă - în funcție de rezultatul evaluării unei condiţii se execută un 
anumit set de operațiuni sau altul. Există două subcategorii ale acestei structuri: 

o structura alternativă cu o ramură vidă - în funcţie de evaluarea unei condiții 
se execută sau nu un anumit set de operații 

o structura alternativă generalizată (multiplă- cunoscută şi sub numele CASE) — 
un operand va fi comparat cu un set de valori predefinit 

° structura iterativă(repetitivă) - anumite operații se execută în mod repetat într-un 
număr finit de paşi. Există următoarele subcategorii: 

o structura iterativă cu un număr cunoscut de paşi ( FOR) - numărul de 
iterații depinde de un contor (o variabilă numerică ce creşte/descreşte 
până la un anumit prag) ce se incrementează/ decrementează cu un 
anumit factor 

o structura iterativă cu un număr necunoscut de paşi ( WHILE) - numărul de 
iterații variază în funcție de anumite condiții 

o condiționată anterior (WHILE - DO) - mai întâi se evaluează condiţia şi apoi 
se execută setul de operații (obs: este posibil ca setul de operaţii să nu se 
execute vreodată) 

o condiționată posterior(DO-WHILE) - mai întâi se execută setul de operațiuni 
şi apoi se evaluează condiţia pentru a relua pasul anterior sau a trece mai 
departe (obs: setul de operaţii se va executa macar o dată) 

Corpul (subsetul de operaţii) unei structuri alternative sau iterative poate fi la rândul său 


reprezentat prin oricare din cele trei structuri : secvența, decizia, iteratia. 


Schema Logica Pseudocod VisualBasic FoxPro Java Oracle PL/SQL 
Structura secventiala 
BEGIN Private Sub Secventa() a=1 public static void DECLARE 
A<1 a=1 b=2 main(String[] args) a Integer; 
B<2 b=2 c=a+b í b Integer; 
C<A+B c=a+b ? C int a=1; c Integer; 
WRITE C Debug.Print (c) int b=2; BEGIN 
END End Sub int c=a+b; a:=1; 
System.out.print(c); b:=2; 
c:=a+b; 


WRITE C 


) 


DBMS_OUTPUT.PUT_LINE(c); 
END; 


Structura Alternativa 


BEGIN 
B<2 
IF B>0 THEN 
WRITE “Pozitiv” 
ELSE 


WRITE “Negativ” 


END IF 
END 


Private Sub Secventa() 
b=2 
If (b > 0) Then 
Debug.Print ("Pozitiv") 
Else 
Debug.Print ("Negtiv") 
End If 


End Sub 


B=2 
If b>0 

? “pozitiv” 
Else 


? “negativ” 


Endif 


public static void 
main(String[] args) 
{ 
int b=2; 
if (b>0) 
System.out.print 
("pozitiv"); 
else 
System.out. print 
("negativ"); 


declare 

b Integer; 
begin 

b:=2; 

if b>0 then 


DBMS_OUTPUT.PUT_LINE('P 
ozitiv'); 
else 


DBMS_OUTPUT.PUT_LINE('N 
egativ'); 

end if; 

end; 


Structura alternativa cu o ramura vida 


WRITE 
“Pozitiv” 


End Sub 


BEGIN Private Sub Secventa() B=2 public static void declare 
B<2 b=2 If b>0 main(String[] args) b Integer; 
IF B>0 THEN If (b > 0) Then ? “pozitiv” { begin 
WRITE “Pozitiv” Debug.Print ("Pozitiv") Endif int b=2; b:=2; 
END IF End If if (b>0) if b>0 then 
E END System.out.print 
(“pozitiv”); DBMS_OUTPUT.PUT_LINE('P 


ozitiv'); 
end if; 
end; 


Structura repetitiva conditionata anterior (FOR, WHILE-DO) Exemplu: N factorial 


BEGIN 
i<1 
N¢1 
While i<=8 Do 
N<N*l 
i&i+1 
END While 
WRITE N 
END 


Private Sub Secventa() 
N=1 
Fori=1 To 8 
N=N*i 
Next 
Debug.Print (N) 


End Sub 


Varianta While-DO: 


Private Sub Secventa() 
N=1 
i=1 
Do While i <= 8 
N=N*i 
i=i+1 
Loop 
Debug.Print (N) 


End Sub 


N=1 

For i=1 to 8 
N=N*i 

EndFor 

2N 


Varianta While-DO: 


N=1 

i=1 

Do While i<=8 
N=N*i 
i=i+1 

EndDo 

?N 


public static void 


main(String[] args) í 
int n=1; 
for (int i=1;i<=8;i++) 


n=n*i ; 


System.out.print(n); 


) 


Varianta While-DO: 


public static void 


main(String[] args) í 


int n=1; 
int i=1; 
while (i<=8) 
( n=n*i; 
j++; 
} 
System.out.print(n); 


} 


declare 
N Integer; 
begin 
N:=1; 
For iin 1..8 Loop 
N:=N*i; 
End Loop; 
DBMS_OUTPUT.PUT_LINE(N); 
end; 


Varianta While-DO: 


declare 
N Integer; 
i Integer; 
begin 


While i<=8 Loop 
N:=N*i; 
i:=i+1; 
End Loop; 
DBMS_OUTPUT.PUT_LINE(N); 
end; 


Structura repetitiva conditionata posterior (DO-WHILE) 


WRITE N 


BEGIN 
i<1 
N<1 
DO 
N<N*l 
i&i+1 
While i<=8 
WRITE N 
END 


Private Sub Secventa() 
N=1 
i=1 
Do 
N=N*i 
i=i+1 
Loop While i <= 8 
Debug.Print (N) 


End Sub 


Nu implementeaza 


public static void 


main(String[] args) { 


int n=1; 

int i=1; 

do 

{ n=n*i; 
j++;} 

while (i<=8); 
System.out. print(n); 
} 


declare 
N Integer; 
i Integer; 


EXIT WHEN i >8; 
End Loop; 
DBMS_OUTPUT.PUT_LINE(N); 
end; 


Testarea unui algoritm poate fi efectuată doar cu un creion şi o hârtie, dacă utilizăm un 


tabel în care liniile sunt reprezentate de paşi iar coloanele de valorile curente ale variabilelor 


şi instrucțiunile ce se execută. Spre exemplu, pentru calculul N factorial prezentat în 


schemele de mai sus (varianta WHILE-DO cu N=4): 


Pas Instructiune EvalCond i N 
1 i€1 1 
2 N€1 1 1 
3 i<=4? TRUE 1 1 
4 N€N*i 1 1 
5 i€&i+1 2 1 
6 i<=4? TRUE 2 1 
7 N€N*i 1 2 
8 i€itl 3 2 
9 i<=4? TRUE 3 2 
10 N€N*i 3 6 
11 i€&i+1 4 6 
12 i<=4? TRUE 4 6 
13 N€N*i 4 24 
14 i€&i+1 5 24 
15 i<=4? FALSE 5 24 
16 WRITE N 5 24 


lată în continuare şi algoritmul de rezolvare a 


reprezentat prin intermediul unei scheme logice. 


ecuației de gradul doi ax?+bx+c=0 


1.3. Elemente de sintaxă VB (tipuri de date, variabile, operații, 
structuri de control, unitatea de program VB) 


1.3.1. Tipuri de date utilizate de Visual Basic 


Încadrarea unei date într-o anume categorie este absolut necesară pentru a putea efectua 
calcule sau alte prelucrări. Pe lângă tipurile fundamentale (numaric şi caracter) majoritatea 
limbajelor de programare implementează în plus cel puţin încă un tip: şir de caractere. Un şir 
de caractere (String) este o secvență de 0 sau mai multe caractere care sunt tratate ca o 
singură entitate. Visual Basic lucrează cu şiruri de caractere de lungime fixă sau variabilă. 
Tipul de dată considerat implicit este Variant, care indică o dată de tip nespecificat. La 
preluarea acestei date într-o secvență de cod este necesară conversia ei în tipul corespunzător 


prelucrării ce urmează. 


Tabelul Nr. 1-1 Tipuri de date VB 


Tipul Descriere 

Boolean Denumit şi logic, poate lua doar valorile True sau False. True şi 
False sunt cuvinte rezervate în Visual Basic. 

Byte Valori numerice pozitive, fără zecimale, în intervalul 0 — 255. 

Currency |Date numerice care stochează sume însoţite de semnul monetar, 
în intervalul -$922,337,203,685,477.5808 — 
$922,337,203,685,477.5807. Semnul monetar este scris automat 
de către Visual Basic. 

Date Date calendaristice şi timp. Data se încadrează în intervalul 1 
ianuarie 100 — 31 decembrie 9999. 

Double Valori numerice în intervalul -1.79769313486232E+308 — 
1.797693 13486232E+308. Este denumit şi dublă precizie. 

Decimal Valori numerice care pot conţine zecimale, reprezentate pe 12 
octeți 

Integer Valori numerice întregi fără zecimale, în intervalul -32,768 - 
32,767. 

Long Similar cu Integer, dar cu valori în intervalul -2,147,483,648 - 
2,147,483,647. Acest tip consumă mai multă memorie (32 biţi 
sau 4 octeți). Este denumit şi long integer (întreg lung). 

Object Tip special de date, care face referire la obiecte cum sunt 
controalele sau form-ul. 

Single Valori numerice în intervalul -3.402823E+38 to 3.402823E+38. 
Este denumit şi simplă precizie. 

String Şir de caractere alfanumerice (maxim 65400 de caractere). Pe 
lângă cifre şi litere se pot include caractere speciale precum ^, %, 
and (4. 

Variant Dată de orice tip, utilizată atunci când tipul datei este incert. 


Notatia ştiinţifică: 78 . 9321 


1.3.2. Variabile, Constante, VB 


Într-un program se poate lucra cu oricâte variabile este necesar, dar înainte de a putea 
lucra cu o variabilă, aceasta trebuie declarată, specificând numele şi tipul acesteia. Unele 
limbaje de programare restricționează declararea in mod explicit a variabilelor înainte de a le 
utiliza pentru a determina de la bun început tipul de date ce va fi manipulat prin intermediul 
acelei variabile (Un astfel de limbaj este Oracle PL/SQL si Java într-o anumită măsură). Alte 
limbaje oferă o mai mare libertate în lucrul cu variabile astfel încât acestea pot fi declarate în 


momentul utilizării lor ( prin atribuirea directă a unei valori), moment la care se determină şi 


tipul variabilei respective (astfel de limbaje sunt VisualBasic sau VisualFoxPro). 


l Am utilizat convenția anglo-saxonă: marca zecimală este punctul, iar virgula separă grupurile de 3 cifre de la partea întreagă. 


E+6 înseamnă 10° * 78.932 adică 78, 932,000, 0001. 


În VB, declararea implicită are loc odată cu prima instrucțiune de atribuire, ca în 
exemplul: 
Raza = 25 


Dacă variabila primeşte ca valoare un număr, VB o consideră ca fiind considerată de tip 


Integer, dar declarația: 

Raza = 254 

forțează această variabilă la tipul Double, chiar dacă ordinul de mărime este mult prea 
mare pentru valoarea 25. Esenţa constă în dimensionarea riguroasă a spațiului de memorie 
utilizat. 

Pentru declararea explicită a variabilelor se utilizează instrucțiunea Dim. Aceasta este 
plasată la începutul programului, indicând că undeva pe parcurs vor fi necesare variabilele 
declarate. Formatul instrucţiunii de declarare este: 

Dim <NumeVariabilă> As <TipDată> 

<NumeVariabild> este definit de către utilizator, iar <TipDată> este specificat explicit, 
tipurile fiind cele prezentate în tabelul 5.1. 

Observaţie. Numele de variabile pot conţine litere, cifre şi caracterul de subliniere 
(underscore). Nu pot să înceapă cu cifre, nu pot conţine spații ori alte caractere speciale. Este 
interzisă folosirea unor nume care sunt cuvinte-cheie în Visual Basic (nu putem avea o 
variabilă numită Form, dar putem folosi numele Form1 5). Aceleaşi precizări sunt valabile şi 
pentru constante. 

Atunci când se execută instrucțiunea Dim, se rezervă în memorie un spațiu cu 
dimensiunea compatibilă cu <tipDată> si acestui spaţiu i se atribuie numele 
<NumeVariabila>. 

Instructiunea Dim se poate plasa oriunde într-o procedură, dar se recomandă scrierea sa 
la începutul acesteia. 

Nu se pot defini două variabile cu acelaşi nume în aceeaşi procedură. 

Operatori în VisualBasic 

Spuneam mai devreme că unei variabile i se poate atribui o valoare sub forma unei 
expresii. În general o expresie înseamnă o insiruire de valori (operanzi) şi simboluri 
specializate (operatori) care poate fi evaluată la momentul execuției şi obținută o valoare 
drept rezultat. Fiecare limbaj implementează operatori aritmetici, pentru şiruri de caractere 
şi logici. În marea majoritate a cazurilor operatorii aritmetici sunt implementati in mod 
similar de la un limbaj la altul (prin simbolurile universal valabile) iar celelalte două tipuri 


pot avea implementări diferite. 


Tabelul Nr. 1-2. Operatori în Visual Basic 


Operator Exemplu Descriere 
Opeartori aritmetici 
+ Sal + Imp Adună valorile celor două variablile. 
- Pret - 10000 Scade o valoare din alta. 
* Total * ProcTVA Inmulteste două valori. 


/ Total / 12 Împarte o valoare la alta. 
À 


102N4 Calculează câtul unei împărțiri cu rest. 
Calculează restul unei împărțiri. 
Mod 6 Mod 4 6 MOD 4=2 
A X^3 Ridică valoarea X la puterea 3. 


Operatori pentru şiruri de carcatere 

Concatenează două şiruri (se poate folosi şi 
& Numel & Nume? semnul + care, în cazul şirurilor înseamnă 
concatenare şi nu adunare). 

Operatori logici 


X=True 
AND Y=False 
X AND Y = False 
X=True 
OR Y=False 
X OR Y = True 
X=True 
NOT NOT X = False 
X Y X Xor Y 
True True False 
False True True 
XOR True False True 
False False False 


Într-o exprimare mai directă : Poate fi X sau Y dar niciodată ambele 


Ordinea de efectuare a operațiilor este cea cunoscută: întâi ridicarea la putere, apoi 
inmultirile şi împărțirile şi la urmă adunările şi scăderile. Pentru a schimba această ordine 


(denumită şi precedenta operatorilor), se utilizează parantezele. 


La folosirea operatorilor aritmetici pentru efectuarea de calcule, tipul de dată al 


rezultatului, dacă nu este declarat în prealabil, este dat de tipul de dată cel mai precis. 
Exemplu: 

Dim a as Long, b as Integer 

a=25.565689 

b=12 

c=a+b 
Rezultatul, memorat în variabila c, va fi 37.565689. Tipul de dată al variabilei c va fi Long 


(tipul variabilei a), deoarece acesta are un grad de precizie mai mare decât tipul Integer 


(tipul variabilei a). Dacă variabila c ar fi fost declarată în prealabil ca Integer, Visual Basic 


ar fi rotunjit automat rezultatul la valoarea 38, deoarece tipul Integer nu are poziții 
zecimale. 
Prin concatenare se obține un şir nou format din cele două şiruri de caractere puse cap la 


cap (cel de-al doilea este adăugat la sfârşitul primului). Dacă am avea 2 casete de text 


(txtNume şi txtPrenume) în care utilizatorul a introdus numele, respectiv prenumele, prin 
concatenarea celor două valori am obține numele întreg, astfel: 


strNumePrenume = txtNume & txtPrenume 
Există o mică problemă cu instrucțiunea de mai sus, referitoare la absența spațiului dintre 


nume şi prenume. Operatorul & nu inserează automat un spațiu - pentru că nu întotdeauna 
este necesar aşa ceva. Spaţiul trebuie specificat explicit astfel: 


strNumePrenume = txtNume & " " & txtPrenume 


Observaţie: Visual Basic foloseşte pentru concatenare şi operatorul +, dar nu-l recomandăm deoarece poate 
produce confuzia (în mintea programatorului începător) cu operatorul pentru adunare. Oricum, nu este greşit dacă 
scriem: 

strNumePrenume = txtNume + "Ç" " + txtPrenume 


Domeniul de vizibilitate al variabilelor 
Într-un program, orice variabilă are o anumită durată de existenţă, cu alte cuvinte o 
anumită durată în care valoarea asociată poate fi manipulată. Unele variabile pot fi utilizate 
pe parcursul întregii aplicații pe când altele se initializeaza şi se volatilizează în cadrul unei 
structuri de control (IF, FOR, WHILE). Diverse limbaje de programare implementează în 
mod diferit acest concept de programare. O regulă general adoptată este aceea o variabilă 
declarată la începutul unei proceduri ( a unui algoritm) va fi disponibilă pe parcursul 
prelucrărilor generate de acel algoritm până la terminarea lui. Astfel, există limbaje de 
programare: 
e care impun declararea tuturor variabilelor la începutul unității de program: ADA, 
Oracle PL/SQL, Pascal 
e care oferă libertatea declarării variabilei chiar la momentul utilizării ei dar 
restricționează durata de viață la nivelul structurii de control în care a fost 
declarată (dacă aceasta este o decizie - IF - sau o iteratie - FOR, WHILE, variabila 
declarată în cadrul structurii nu va fi “vizibilă” în afara ei , chiar dacă este vorba 
de aceeaşi subrutină ) : Java 
e care furnizează diverse tehnici pentru a declara domeniul de vizibilitate al 
variabilei : VisualBasic, FoxPro 


Am văzut mai devreme că în VB o variabilă poate fi declarată implicit atunci când este 


nevoie de ea sau explicit prin utilizarea instrucţiunii DIM. Locul in care este plasată 
instrucțiunea Dim este important pentru că specifică modul în care se va lucra cu variabila 
într-o aplicație. 

Atunci când se include instrucțiunea Option Explicit la începutul unui modul, în 
secțiunea denumită General (pentru că precede toate procedurile şi totodată este accesată de 
acestea), atunci toate variabilele cu care se va lucra în cadrul modulului trebuie să fie 
declarate explicit. Dacă această instrucțiune lipseşte, se poate lucra cu o variabilă fără ca ea să 
fi fost declarată în prealabil, dar aceasta este considerată implicit de tip Variant. Precizarea 


este valabilă atât pentru modulele-standard, cât şi pentru form-uri. 


Dacă Dim este plasată la începutul unei proceduri (după declarația Sub <nume- 


procedură>) sau dacă declarăm o variabilă în mod implicit prin atribuirea directă a unei 


valori în cadrul procedurii (fără a o declara în prealabil cu DIM), atunci variabila declarată va 
fi recunoscută şi va putea fi utilizată doar în procedura respectivă, fiind o variabilă locală. 
Pentru ca variabilele să poată fi utilizate în toate procedurile dintr-un modul, trebuie să 
plasăm instrucțiunea Dim în secțiunea generală a modulului (vezi figura 5.4). 

Dacă în locul instrucţiunii Dim se utilizează Public (având acelaşi format cu Dim), toate 
modulele-standard şi toate form-urile aplicaţiei vor putea lucra cu variabilele declarate 
astfel. Acestea se numesc variabile globale. Instrucţiunea Public este utilizată pentru 


declararea variabilelor în secțiunea General a modulelor standard. Nu se poate folosi 


declaraţia Public într-o procedură delimitată prin Sub...End Sub. 
Declaraţia Private permite declararea de variabile la nivel de modul (pot fi apelate 
numai din procedurile din modulul respectiv, nu şi din alte module ori form-uri). Se 


foloseşte de asemenea în secțiunea General a modulului. Nici declaraţia Private nu se 


poate utiliza în cadrul procedurilor delimitate prin Sub...End Sub. 


pjTest - Modulei (Code) E > {oj x} 
|General) >| |(Dectarations) >] 


Option Explicit 

Const PI As Double = 3.1416| 

Dim Unghi As Single 

Sub CalculirieCerc|) 

Dim Raza As Integer, AriaCerc As Single 
Raza = 150 

iriaCerc = Raza * PI * 2 

End Sub 

Sub AflaCatetaOpusa() 

Dim Catetal As Single, Ipotenuza ds Single 
Ipotenuza = 1250 

Unghi = PI / 2 

Catetal = Sin(Unghi) * Ipotenuza 

End Sub 


st ă Z 


Figura 1-3 Variabile locale şi globale 


Figura 1-4. Domeniul variabilelor 


1.4.  Modularizarea programelor. . 


Încă de la începuturile erei calculatoarelor programatorii s-au confruntat cu problema 
complexității aplicaţiilor. Majoritatea problemelor din lumea reală sunt complexe şi nu pot fi 
formalizate prin intermediul unui singur algoritm. Mai mult, există numeroase parti ale unei 
probleme ce pot fi regăsite în formularea altora, şi, ca urmare, algoritmii ce descriu părțile 
pot fi reutilizati. Reutilizarea codului este una din paradigmele fundamentale în programare 
iar dezvoltatorii de aplicaţii văd în acest procedeu un scop în sine al procesului de 


programare. In esenţă, reutilizarea codului se referă la gruparea unora din paşii unui 


algoritm pentru a forma porţiuni de cod scurte (numite generic module, subprograme sau 
subrutine), cât mai simple şi specializate, astfel încât: 

- prin asamblarea acestor parti să se obţină rezultatul dorit; 

- unele module să poată fi reutilizate pentru asamblarea algoritmică a rezolvării unei 
alte probleme; acest aspect presupune simplitate şi specializare (modulul trebuie să 
rezolve o sarcină definită cât mai abstract posibil, sarcină care se poate apoi regăsi în 
definirea altei probleme) 

Subrutinele nu sunt altceva decât programe (algoritmi) în miniatură, cu propriile lor 

variabile şi opeartii fundamentale asupra datelor. 

Asamblarea ulterioară a modulelor presupune construirea unui program (algoritm) mai 
general care include instrucțiuni de apel (sau invocare) a subprogramelor. A invoca o 
subrutină înseamnă a transfera controlul execuţiei din modulul general către subrutină. În 
majoritatea cazurilor modulul principal îşi suspendă execuţia cât timp se execută subrutina 
(mai putin în cazurile de programare pe mai multe fire de execuţie) . O dată ce controul 
execuţiei este primit, subprogramul se execută la rândul său apoi, după finalizare, înapoiază 
controlul modulului apelant (principal) care îşi reia execuţia de la pasul următor apelului 


subrutinei. 


1.4.1. Proceduri, funcții, parametri. 


În programare, subrutinele pot fi de două tipuri: 

e Proceduri - module ce execută o anumită sarcină, iar după finalizarea execuţie redau 
controlul programului apelant; 

e Funcţii - module ce execută o anumită sarcină dar pasul final al execuţiei 
presupune transmiterea unor valori către programul apelant, ca rezultat al 
prelucrărilor. Se spune că o funcție este un modul care întotdeauna returnează un 
rezultat. Multe limbaje de programare implementează un cuvânt rezervat, RETURN, 


pentru a trimite rezultatul prelucrărilor programului apelant 


— p Controlul execuţiei 
PROCEDURA j 


= =P Transfer date-rezultat 


FUNCTIE 


Figura 1-5 Doua tipuri fundamentale de subrutine 


Orice subprogram (procedură sau funcție) are un nume, nume ce va fi utilizat in 
instructiunea de invocare. 

În multe cazuri, la momentul transferului execuției programul apelant poate trimite o listă de 
valori subrutinei, valori ce se vor materializa sub forma unor variabile de intrare numite 
parametri (sau argumente). Cu alte cuvinte, există module care necesită date de intrare 
pentru a realiza prelucrări asupra lor, iar aceste date sunt preluate odată cu controlul 


execuţiei de la programul apelant. 

PROCEDURA P 

(params: p1,p2) 
pl C text” — —P Transfer date-rezultat 
p2< 


— p. Controlul execuţiei 


CALL P(a,b) 


— Transfer date 


parametri 


FUNCŢIA F 
(params: p1) 


pl<3 


RETURN pl/2 


Figura 1-6 Transferul de parametri 


Următoarele aspecte sunt esentiale şi general valabile: 


e Parametrii sunt de două tipuri: 


o Parametri formali - varibilele declarate la nivelul subrutinei pentru a 
prelua valori de la programul apelant (în fig. 1-8 parametrii formali ai 
procedurii P sunt p1 şi p2 iar pentru funcția F - p1 ); 

o Parametri actuali - valorile ce vor fi transmise subrutinelor la momentul 
execuției (în fig 1-8 este vorba de valorile variabilelor a şi b , adică “text” şi 
2, în cazul procedurii P şi valoarea 3 în cazul funcției F) ; parametrii 
actuali pot fi varibile, literali, constante (cu alte cuvinte obtineam acelaşi 
rezultat dacă apelam procedura cu doi literali în loc de două variabile : 
P(“text”, 2) 

e Numărul şi ordinea parametrilor este extrem de importantă - parametrii actuali sunt 
preluaţi de cei formali în ordine, strict de la stânga la dreapta (in fig 1-8, 
instrucțiunea CALL P (a,b) determină ca primul parametru formal al procedurii 
P (adică p1) să ia valoarea “text” iar cel de-al doilea (p2) să ia valoarea 2). 
Numărul parametrilor actuali trebuie întotdeauna să fie identic cu numărul parametrilor 
formali. 

e Pentru că o funcţie întotdeuna returnează un rezultat, respectivul rezultat trebuie 
preluat într-o variabilă la nivelul rutinei principale (apelantă) - tocmai de aceea, 
întotdeauna invocarea unei funcții se realizează după următroarea schemă: 

V=NumeFunctie(lista_parametri_actuali) 
in timp ce pentru a invoca o procedură este nevoie de o instrucțiune specială 
implementată la nivelul limbajului (spre exemplu CALL în VB): 
CALL NumeProcedura (lista _parametri_actuali) 
lată un exemplu de problemă în care definim câteva module specializate (proceduri şi 
funcţii): să se calculeze media semestrială a studenţilor unei specializări ştiind că au fost doar 
două examene, fiecare cu o pondere diferită (0.4 x nota1+0.6 x nota2) în media finală. În 
acelaşi timp, pentru fiecare student să se afişeze dacă beneficiază de cazare şi/sau de bursă. 
Repartizarea în cămine a studenţilor se face pe baza mediei acestora : 7<=medie<8 -camin1, 
8<=medie<9 - camin2, 9<=medie<10 -camin3. Există două tipuri de burse repartizte astfel: 
9<=med<9.5 - bursă_studiu, 9.5<=med<10 - bursă_merit . 
Datele de intrare se prezintă sub forma unei matrici (prima coloană =numele studenților 


iar următoarele două - notele) astfel: 


Studenti | 10 | 10 


Student2 | 7 8 


Student3 


Studenti | 5 4 


PRINCIPAL 


READ Matrice(4,3) 


/ 


FALSE 


TRUE 


MED€CalculM(Matrice(I,2),Matrice(I,3) 0.4, 0.6) 


FALS RUE 


WRITE RepartCamin(Matrice(I,1), MED) 
“Restante” 


Vv 
O TRUE 


Media€&N1*C1+ N2*C: 


b 


STOP 


w 


RepartBurse (Matrice(I,1), MED) 


ICI 


Je READ NumeStud, MedS fe 


MedS>=8 
Je WRITE NumeStud, “Camin1” A 


WRITE NumeStud, “Camin2” 


WRITE NumeStud, “Camin3” 


STOP 


z READ NumeStud, MedS z 


y 


/ WRITE NumeStud, “Bursa Studiu” r We WRITE NumeStud, “Bursa Merit” P: 


STOP 


lată şi implementarea algoritmului in VB (față de schema de mai sus, procedura 


principal () a fost “îmbogăţită” cu declararea şi popularea explicită a tabloului 


Matrice şi un apel la procedura de afişare ( Debug. Print ()) pentru media fiecărui 


student) : 


Listing 1-1 Proceduri, Funcţii şi parametri în VB 
Sub principal () 


Dim Matrice(3, 2) 
atrice(0, 0) = "Student1" 
atrice(1, 0) = "Student2" 
atrice(2, 0) = "Student3" 
atrice(3, 0) = "Student4" 
atrice(0, 1) = 10 
ase (ile dj) = 7 
atrice(2, 1) = 9 
atrice(3, 1) = 5 
atrice(0, 2) = 10 
ab i ee (182) 8 
atrice(2, 2) = 6 
atrice(3, 2) = 4 


noe aL = 0 Ste: 3 
Med = CalculM(Matrice(i, 1), Matrice(i, 2), 0.4, 0.6) 
Debug.Print ("media " & Matrice(i, 0) & " este: " & Med) 


If Med >= 5 Then 
Call RepartCamin (Matrice (i, 0), Med) 
Call RepartBurse (Matrice (i, 0), Med) 
Else 
Debug.Print ("Restante") 
End. 12 
Next 


End Sub 


Function CalculM(N1, N2, C1, C2) 

Media = 4 

If Nl >= 5 And N2 >= 5 Then 
Meclia = NI = Cal ar N2 = C2 

EG IE 

CalculM = Media 


End Function 
Sub RepartCamin (NumeStud, MedS) 


If Meds >= 7 Then 
If Meds >= 8 Then 
If Meds >= 9 Then 
Debug.Print (NumeStud + "Camin3") 
Else 
Debug.Print (NumeStud + " Camin2") 
End LE 
Else 
Debug.Print (NumeStud + " Camin") 
WGL Ine 


Else 
Debug.Print (NumeStud + " Fara Camin") 
End If 


End Sub 
Sub RepartBurse (NumeStud, MedS) 
If MedS >= 9 Then 

WE NECE >= O72 her 


Debug.Print (NumeStud + " Bursa Merit") 
Else 


Debug.Print (NumeStud + " Bursa Studiu") 
Ena If 
Else 


Debug.Print (NumeStud + " Fara Bursa") 
End If 


End Sub 


Fereastra Immediate utilizată şi 
pentru apelul procedurii 


(General) 


Sub principal) Project1 (Project1.bp) 
Dim Matrice(3, 2) E Forms 
Hatrice (Oo, "Studenti" È Formi (Formi.frm) 
Hatrice (1, "Student2" By Form2 (Form2.frm) 
Hatrice (2, "Student3" £ Modules 
Matrice (3, "Student4" a Begining (Module, bas) 
Matrice (0, 10 #2 CautareSortare (Cautare 
Matrice (1, 2 Moduli (Moduli bas) 
Hatrice (2, ei 
Matrice (3, 
Hatrice (0, 
Matrice(1, 
Matrice (2, 
Hatrice (3, 


call principal) 


[=] 


media Studenti este: 10 
Studenti -Camin3 
Studenti Bursa Herit 


"Ü" lf f lú fú í lú lÚ H H H H 


+ m GQ = (n 


For i = Ü TO 3 
Med = CalculM(Matrice(i, 1), Matrice(i, 2), 0.4, 0.6) media Student2 este: 7.6 
Debug.Print (Chr(13) & "media " & Matrice(i, 0) & " este: " & Med) Student2 -Camini 
Student2 Fara Bursa 
If Med >= 5 Then 
Call RepartCamin(Matrice(i, 0), Med) media Student3 este: 
Call RepartBurse(Matrice(i, 0), Med) Student3 -Camini 
Else Student3 Fara Bursa 
Debug.Print ("Restante") 
End If media Student4 este: 
Next Restante 


End Sub 

Function CalculM(N1, N2, C1, C2) 

Media = 4 

If Ni >= 5 And N2 >= 5 Then 
Media = N1 * C1 + N2 * C2 


= «| | 


In majoritatea limbajelor o functie se incheie prin instructiunea Return <valoare>. in 
VB, instructiunea Return are o cu totul alta semnificatie si nu poate fi utilizata pentru a 
returna o valoare ca rezultat al unei funcţii . Pentru a returna rezultatul se considără chiar 
numele funcţiei o variabilă căreia i se atribuie valoarea de returnat. În exemplul de mai sus 
(functia calculM () )media calculată şi atribuită variabilei Media este transmisă înapoi 


procedurii apelante (Principal) prin : 


CalculM = Media 


Astfel, dacă în majoritatea limbajelor instrucțiunea Return presupune şi returnarea 
rezultatului şi încheierea execuţiei subrutinei, în VB, pentru a încheia o procedură îninte de 
efectuarea tuturor prelucrărilor (cu alte cuvinte ieşirea forțată în funcție de anumite condiții) 


utilizăm : 


Exit Sub 


lar pentru a încheia o funcție utilizăm : 


Exit Function 

In momentul in care este intalnita instrucțiunea Exit, rutina îşi opreşte execuția exact in 
locul respectiv (indiferent dacă mai sunt şi alte instrucțiuni sau dacă este plasată într-o 
structură de control alternativă sau repetitivă). Trebuie avut în vedere în acest caz că 


întotdeauna funcția trebuie să returneze o valoare: atribuirea valorii de returnat trebuie să se 


facă înainte de Exit Function. 


Astfel , dacă modificăm funcția CalculM() : 


Function CalculM(N1, N2, C1, C2) 
Media = 4 
If N1 >= 5 And N2 >= 5 Then 

Me ela ae = JSU = (ehh ap 82 e 
End If 
CalculM = Media 
Debug.print(”After Process”) 


End Function 
expresia “After Process” va fi afisata . 


Dar dacă modificarea se realizează în felul următor: 


Function CalculM(N1, N2, C1, C2) 

Media = 4 

If Nl >= 5 And N2 >= 5 Then 
Media = NL * Cl + N2 * C2 

End If 

CalculM = Media 

Exit Function 

Debug.print (“After Process”) 


End Function 


expresia “ After Process” nu va fi afişată (cu alte cuvinte nu se va executa procedura de 
scriere: Debug.print (...) ) 

In VB, procedurile si functiile sunt organizate in module cunoscute in general sub 
numele de biblioteci de functii. Daca scriem toate subrutinele din listingul 1-1 intr-un modul 
cu numele Moduli, atunci apelul procedurii Principal () dintr-un alt modul va fi de 
forma : 

Call Modull.Principal 


(punctul ce desparte numele modulului de numele procedurii este esenţial (vom aborda 


această tehnică ceva mai târziu)) 


1.4.2. Două modalitati de transmitere a parametrilor. 


Există două variante de transmitere a argumentelor (mai bine zis a valorilor acestora) de 
la programul apelant către subrutina: 

e prin adresă (sau prin referință) - modul implicit în Visual Basic- parametrii formali 
din procedura apelată vor prelua ca valoare adresa valorilor parametrilor actuali 
(vezi noțiunea de pointer). Ca urmare, atât variabilele din rutina apelantă cât şi 
cele ce constituie parametrii formali în subrutină vor manipula aceeaşi valoare: 
modificarea valorilor varibilelor ce constituie parametrii formali în cadrul 
subrutinei va însemna de fapt modificarea valorilor parametrilor actuali din 
rutina apelantă (vezi figurile 1-9 şi 1-10). 

e prin valoare - parametrii formali din procedura invocată vor prelua o copie a 
valorilor parametrilor actuali. Ca urmare, modificarea valorilor parametrilor formali 
în subrutină nu va afecta valorile parametrilor actuali din programul apelant 
(figurile 1-9 şi 1-11) 

Transmiterea prin valoare protejează variabilele din rutina principală ce constituie 
parametrii actuali, valoarea acestora rămânând întotdeauna neschimbată după execuţia 
subprogramului apelat, chiar dacă la nivelul acestuia valorile parametrilor formali se 
modifică. 

Având în vedere frecvența foarte ridicată a invocării diverselor funcții şi proceduri într-o 
aplicaţie reală, la implementarea uneia sau alteia dintre cele două metode trebuie să se aibă 
în vedere următoarele aspecte: 

e transferul prin referință asigură o bună gestionare a memoriei interne (copierea 
valorilor la nivelul parametrilor formali necesită operaţii şi spațiu de memorie 
suplimentare) dar oferă o breşă de securitate ce poate fi exploatată, în mod deliberat 
sau nu, de modulul apelat; 

e transferul prin valoare garantează imposibilitatea modificării parametrilor actuali 
(variabile locale ale modului apelant) dar implică operații pentru alocarea memoriei 


suplimentare şi copierea valorilor 


MEMORIE (RAM) 


Transfer prin referință Transfer prin valoare 


š lorii lui . : lorii lui 
Propran Subrutina (b preia adresa valorii lui a) (b preia o copie a valorii lui a) 


“a EHO [Ere 
Pas2: Call Proc(a) » PG) 


Pas3 b=25 E (20) 


Pas4: WRITE a 


Figura 1-7 Două modalități de transmiterea valorilor parametrilor (prin referință şi prin valoare) 


Project] Parametri (ode) Rezultat execuţie 


|(General) X | |testTransferParametri X | testTransferParametri ( ) 


Sub testByVal(ByVal B) K 
35 

Debug.Print ("In subrutina: B=" & B) 

End Sub 


Inainte de apel subrutina: A=1 
In subrutina: B=45 
Dupa apel subrutina: iA=45 


Sub testByRef(ByRef B) 

45 
Debug.Print ("In subrutina: B=" & B) 
End Sub 


Sub testTransferParametri |] 
a= 2 


Debug.Print ("Inainte de apel subrutina: A=" <& a) 


Call testByRef (a) — mad 


Debug.Print ("Dupa apel subrutina: A=" € a) 


Figura 1-8 Transmiterea valorilor parametrilor prin referință în VB (procedura principală: 
TestTransferParametri()) 


Pinjeci Paramet (ule) Rezultat execuţie 


(General) v [testTransferParametri ~] testTransferParametri() 


Sub testByVal(ByVal B) en 
35 

Debug.Print ("In subrutina: B=" & B) 

End Sub 


Inainte de apel subrutina: A=1 
In subrutina: B=35 
Dupa apel subrutina: A=1 


Sub testByRef {ByRef B) 

45 
Debug.Print ("Im subrutina: B=" <& Bj 
End Sub 


Sub testTransferParametri() 


Debug.Print ("Inainte de apel subrutina: A=" & a) 
Call testByVal (a) 
Debug.Print ("Dupa apel subrutina: A=" <& a) 


Figura 1-9 Transmiterea valorilor parametrilor prin valoare in VB (procedura principala: 
TestTransferParametri()) 


Trebuie să mai spunem că există şi posibilitatea restrictionarii parametrilor la un 
anumit tip de dată. În exemplele de mai sus parametrii formali nu sunt declarați ca 
fiind de un anumit tip, astfel că ei vor fi consideraţi în mod implicit de tip Variant. 
Tipul de date Variant permite VB să identifice tipul la momentul execuției în 
funcție de valoarea variabilei respective. De cele mai multe ori este însă indicat să 
specificăm explicit tipul fiecărui parametru formal, astfel încât funcția (sau 


procedura) să nu accepte alte tipuri de date care ar putea bloca prelucrările. 
Function f( pl As Integer, p2 As Double, p3 As String) 


O asemenea declaraţie obligă aplicatia-client (apelantă) să furnizeze parametri 
actuali de tipul specificat, în caz contrar obținând un mesaj de eroare. Asta înseamnă 
că variabilele ce vor constitui parametrii actuali trebuie neapărat declarate de tipul 


respectiv. Cu alte cuvinte, o procedură de apel ar arăta astfel: 


Sub P() 
Dim pal as Integer 
Dim pa2 as Double 
Dim pa3 as String 
Pal=1 
Pa2=3.5 
Pa3="text” 
Rez=f (pal, pa2,pa3) 
End sub 


În cazul în care nu dorim 


2. Organizarea datelor (Structuri de date). 


La nivelul sistemului de calcul, memoria internă este organizată în celule (în majoritatea 
cazurilor cu dimensiune de 1 octet=8biti) cu adrese consecutive. În mod normal însă, este 
mai convenabil să organizăm datele sub forma unor structuri abstracte, familiare. Spre 
exemplu vânzările săptămânale ale unei firme vor fi organizate într-o formă tabelară, cu 
produsele vândute sub formă de coloane şi zilele săptămânii sub formă de linii. 

Obiectivul secțiunii ce urmează este de a înțelege mecanismele prin care programatorul 
gestionează datele conform viziunii sale abstracte asupra acestora şi nu după organizarea 


actuală la nivelul memoriei interne. 


2.1. Tablouri 


Una din cele mai utilizate structuri de date este tabloul (array), structură care prezintă 
datele într-o formă rectangulară, fiecare valoare fiind stocată într-o celulă astfel încât 
programatorul poate la un moment dat manipula valoarea respectivă prin intermediul 
poziției sale. Identificarea valorii prin intermediul poziţiei sale în cadrul tabloului (cu alte 
cuvinte identificarea celulei de memorie internă ce conține respectiva valoare) cade în sarcina 
translatorului limbajului de programare cu care se lucrează. Există două tipuri de tablouri: 
unidimensionale şi multidimensionale. 

Tablouri Unidimensionale (figura 2-1)- tablouri cu o singură linie şi n coloane numite şi 
vectori- reprezintă datele sub forma unei liste ordonate de celule de memorie (cu adrese 
consecutive) căreia i se atribuie un nume pentru identificare. Fiecare celulă va stoca o 
valoare. Accesul la o anumită valoare se realizează prin numele listei şi poziția (numită şi 
index) elementului în listă. Spre exemplu notele unui student la patru discipline dintr-un 
semestru pot fi reprezentate prin intermediul unui vector cu numele Note, ce va conține, 
patru valori localizate fizic în patru celule de memorie cu adrese consecutive. Pentru a 
manipula nota la cea de-a doua discplină, vom utiliza o sintaxă de genul Note (2) (sau 
Note[2] în funcție de limbajul utilizat) astfel: pentru preluarea notei putem spune: 

Note (2)=8.7 
lar pentru a calcula ulterior media: 
Medie= (Note (1) +Note (2) +...) / 4 


Numele tabloului (Note) este in esență un pointer (o variabilă ce conţine o adresă) spre 
valoarea din prima celulă a tabloului. Astfel, pentru a extrage o valoare de la o anumită 
poziţie, translatorul va trebui să identifice adresa celulei respective. Ştiind că adresele sunt 
consecutive, şi deținând prima adresă (101 - vezi figura 2-1), adresa notei la a treia disciplină 
se obține prin : 101+(3-1)=103. lată de ce Note (3) va returna întotdeauna valoarea de la 


adresa de memorie 103 (în exemplul nostru fiind vorba de nota 6) 


Adrese de memorie 


101 102 103 104 
Celule de memorie 9 8.7 6 6 


Note(1) 
Note(2) 
Note(3) 
Note(4) 


Figura 2-1 


Tablouri Multidimensionale - reprezintă in fapt structuri de tablouri unidimensionale 
ale căror elemente (noduri sau celule) sunt alte tablouri unidimensionale. Cel mai utilizat 
tablou multidimensional este matricea (tablou cu linii şi coloane - 2 dimensiuni). Spre 
exemplu dacă ar trebui să reprezentăm notele tuturor studenţilor unei secții pe primul 
semestru, presupunând că sunt 4 examene, am putea construi un tabel în care pe fiecare line 


să reprezentăm notele unui alt student. 


10 7 5.5 6 Student 1 
4 Student 2 
10 10 10 9 Student 3 
ale 1 Disciplina 4 
Disciplina 2 
Disciplina 3 


Structura de date astfel obținută este uşor de abordat de programator, fiind un mod 
familiar de reprezentare a datelor. Manipularea datelor se realizează prin intermediul unei 
sintaxe similare celei prezentate la tablourile unidimensionale, doar că identificarea poziției 
unui element se realizează prin numărul liniei şi al coloanei. Astfel, dacă numele tabloului ar 
fi Note, nota studentului 2 la disciplina 1 se obține prin: Note (2,1) adică Note (linie, 
coloană). Pentru a modifica nota studentului 1 la disciplina 3 vom scrie: 

Note (1,3)=5.5 
lar pentru a obține media notelor studentului 2 la cele patru discipline: 

MedieS2= (Note (2, 1) +Note (2,2) +Note (2, 3) +Note (2,4))/4 

adică 4+9+9+10/4 


După cum ştim, memoria internă a maşinii de calcul este organizată în celule cu adrese 
consecutive. Ca urmare, translatorul limbajului de programare va trebui să simuleze 


modalitatea tabelară de organizare a datelor. În esenţă, liniile (în exempl;ul nostru 4 celule de 


date) vor fi stocate în ordinea naturală, într-o structură liniară de celule de memorie cu 
adrese consecutive (primele patru celule de memorie vor constitui prima linie, următoarele 
patru vor constitui cea de-a doua linie, ş.a.m.d - vezi figura 2-2). Numele tabloului (Note) 
este de fapt o variabilă-pointer spre prima valoare din şirul astfel obținut. Având în vedere 
că ştim prima adresă a şirului de celule de memorie ce stochează valorile noastre, şi că 
adresele respectivelor celule sunt întotdeauna consecutive, adresa fizică a unui element al 
tabloului (valoare manipulată la nivelul limbajului prin Note (i,j)) poate fi calculată. 
Translatorul va efectua acest calcul pentru a returna valoarea de la linia i, coloana j. Dacă C 
reprezintă numărul de coloane, adresa fizică a elementului Note(i,j) se obține prin adăugarea 
la adresa primului element a numărului obținut prin: 

(Cx(i-1)) + 6-1) 

Spre exemplu (vezi si figura 2-2) pentru a calcula adresa la care se află valoarea 
Note (3,2) (adică nota la discipl. 2, studentul 3 care este 10), ştiind că adresa primei celule 
(spre care “tine” o referința variabila Note) este 100 : 

adresa element (3,2)=100+ 4x(3-1)+(2-1)=100+8+1=109 


Tabloul Note la nivel conceptual 


Reprezentarea tabloului in 
memorie 


100 101 102 103 494 105 106 107 108 [109 110 11l 


Adrese consecutive ale celulelor de 


memorie aloarea Note (3,2) 


Figura 2-2 Reprezentarea matricilor in memorie 


Observație. Datorită modalităţii specifice de adresare a memoriei (celule cu adrese 
consecutive) tablourile se mai numesc şi structuri statice de date, adică structuri a căror 
dimensiune (număr de elemente) este cunoscută la momentul compilării şi nu poate fi 
modificată pe parcursul execuţiei programului. În toate limbajele de programare tablourile 
se declară în mod explicit la momentul scrierii codului, prin declarare programatorul fiind 
obligat să specifice numărul maxim de elemente. La momentul compilării, se alocă memorie 
(celule cu adrese consecutive) pentru numărul maxim de elemente (nr. linii x nr. coloane). 


Imposibilitatea redimensionării ulterioare (pe parcursul execuției programului ) provine din faptul că 


nu se poate şti dacă la momentul solicitării de noi poziții vor exista suficiente celule de memorie libere 
cu adrese consecutive adresei ultimei celule a tabloului. 

De asemenea trebuie precizat că indexul primului element poate fi 0 (zero) sau 1 în 
funcţie de limbajul de programare (cu alte cuvinte elementele se numără începând cu 0 sau 


cu 1) . În VB, în mod implicit indexul primului element este 0 (zero). Spre exemplu, in 


VisualBasic dimensionăm un array (tablou) cu instrucțiunea DIM astfel: 


DIM Note(4) - tablou unidimesional cu 5 elemente (de la 0 la 4) 


DIM Note(3,4) - tablou bidimensional cu 4 linii şi 5 coloane (primul element fiind 
Note (0,0)) 

Astfel, pentru a dimensiona tablourile exemplificate în figurile 2-1 şi 2-2, în VB ar trebuie 
să scriem: 

DIM Note (3) 

DIM Note (2,3) 


Figura 2-3 (vezi şi opeartorul de concatenare a două şiruri in secțiunile anterioare) 
prezintă un exemplu VB de declarare şi populare automată cu date a unui vector şi a unei 
matrici ce reprezintă notele studenţilor la patru discipline (vezi exemplele anterioare şi 
figura 2-1 şi 2-2) şi afişarea elementelor acestora. Notele vor fi numere aleatoare de la 0 la 10 
generate de funcția Rnd. Funcţia returnează un număr între 0 şi 1 care înmulțit cu un alt 
număr (n) va determina obținerea de valori aleatoare între 0 şi n. Funcția Round (n, nrZec) 


returnează numărul zecimal n rotunjit la nrzec zecimale . 


Listing 2-1 Procedura de populare şi manipulare elemente tablouri 
Sub Tablouri () 


Dim VectorNote (3) 
Dim MatriceNote (2, 3) 


For i = 0 To 3 

VectorNote(i) = Round(Rnd * 10, 2) 

Debug.Print ("VectorNote(" & i & ")=" & VectorNote (i) ) 
Next 


Daoue, Resin (Veco saa J eS a Ai 


Eor at = 10) “uke; 2 
ee J = 10), “alley 3 


MatriceNote (i, j) = Round(Rnd * 10, 2) 
Debug.Print ("MatriceNote(" & i & "," & j & ")=" & MatriceNote(i, ])) 
Next 
Next 


Deto Prime, (UA kk ti i V i eee Ba) 


MediaStudl = (MatriceNote(0, 0) + MatriceNote(0, 1) 
+ MatriceNote(0, 2) + MatriceNote(0, 3)) / 4 
Debug.Print ("Media studentului 1=" & MediaStudl) 


End Sub 
In procedura de mai sus, semnul “_” (underscore) permite scrierea unei comenzi sau a 


unei operații pe mai multe rânduri. 


Call Tablouri) 


Rezultatul execuţiei procedurii Tablouri () va fi cel din figura 2-3 


VectorNote (0)=?.D6 = 
VectorNote (1j)=5.33 
VectorNote (2)=5.8 
VectorNote (3)=2.9 


MatriceNote (0,0) =3.02 
MatriceNote(0,1)=7.75 
MatriceNote (0,2)=0.14 
MatriceNote(0,3)=7.61 
HatriceNote |1,0)=8.14 
MatriceNote(i,1)=7.09 
MatriceNote(1,2)=0.45 
MatriceNote (1,3)=4.14 
MatriceNote (2,0)=8.63 
MatriceNote(2,1)=7.9 

MatriceNote(2,2)=3.74 
MatriceNote (2,3)=9.62 


Media studentului 1=4.63 


Figura 2-3 Fereastra Immediate afişează mesajele trimise din procedura Tablouri() 


După cum s-a văzut anterior (listing 2-1), pentru a parcurge un vector element cu element 
utilizăm o buclă FOR a cărei variabilă-contor va fi utilizată pe post de index pentru a 
manipula valorile de la respectiva poziție în vector. Pentru a parcurge o matrice, element cu 
element, avem nevoie de două structuri repetitive FOR imbricate (una pentru linii iar 
următoarea pentru fiecare coloană). În acest fel parcurgerea va însemna mai întâi 
prelucrarea elementelor primei linii (în ordine de la stânga la dreapta) apoi a elementelor 
celei de-a doua linii ş.a.m.d. 

Se observă că în procedura Tablouri () pentru a parcurge tablourile, limita inferioară şi 
superioară a contorului buclelor FOR (i şi j) se specifică prin literali (0,2,3). Există şi 
posibilitatea de obține valoarea acestor literali (adică a limitei superioare şi inferioare a 
indexului unui tablou), prin utilizarea următoarelor funcții predefinite în VisualBasic: 


LBound (<tablou> [,dimensiune]) - pentru limita inferioară; 
UBound (<tablou> [,dimensiune]) - pentru limita superioară. 


Parametrul dimensiune este opțional şi specifică în mod implicit dimensiunea 1. Pentru 
matrice dimensiunea 1 înseamnă liniile iar dimensiunea 2 înseamnă coloane. Cu alte cuvinte: 
LBound (MatriceNote)=LBound (MatriceNote,1)=0 
UBound (MatriceNote)=UBound (MatriceNote, 1)=2 
LBound (MatriceNote, 2)=0 
UBound (MatriceNote, 2)=3 


Astfel, procedura Tablouri () din listingul 2-1 poate fi scrisă şi astfel: 


Listing 2-2 Utilizarea functiilor UBound() şi LBound() 


Sub Tablouri? () 
Dim VectorNote (3) 
Dim MatriceNote (2, 3) 
For i = LBound(VectorNote) To UBound(VectorNote) 
VectorNote(i) = Round(Rnd * 10, 2) 
Debug.Print ("VectorNote(" & i & ")=" & VectorNote (i) ) 
Next 


Debug. Print 


E 


For j = LBound (MatriceNote, 


i = LBound(MatriceNote, 1) To UBound(MatriceNote, 1) 
2) To UBound (MatriceNote, 2) 
MatriceNote (i, ]) = Round(Rnd * 10, 2) 


Debug.Print ("MatriceNote(" & i & "1," & j & ")=" & MatriceNote (i, 


Next 
Next 


Debug.Print 
MediaStudl = 


Debug. Print 


End 


(MatriceNote(0, 0) + MatriceNote(0, 1) 
+ MatriceNote(0, 2) + MatriceNote(0, 3)) / 4 
("Media studentului 1=" & Mediastudl) 


Sub 


Elementele unui tablou sunt în mod implicit de tip Variant 


Există însă şi posibilitatea specificării tipului elementelor astfel: 


char) 


Dacă însă o matrice trebuie să stocheze date de diverse tipuri, va trebui declarată 


conform modelului implicit. 


De retinut(pentru cazul VisualBasic) : 


3)) 


Dim Tablou(5) As Integer > va accepta doar numere întregi 


Dim Tablou(3,4) As String > toate elementele vor fi de tip String (siruri de 


Nu putem utiliza un tablou dacă nu este in prealabil declarat (pentru a se aloca memorie) 


cu instrucțiunea DIM 


Dacă tabloul este definit prin modalitatea clasică DIM tablou(N), indexul elementelor în 


tablou porneşte întotdeauna de la 0 şi se opreşte la N. Cu alte cuvinte, se alocă memorie 


pentru N+1 elemente. 


Ca urmare, pentru a declara un tablou de 10 elemente : DI 


Tablou (9), sau o martice de 10x10: D1 


[M Matrice(9,9) 


e Tablourile se pot declara şi prin specificarea explicită a limitelor indecşilor: 


DIM Tablou(l to 9) > 


indexmaxim=9 


DIM Matrice(l to 9, 1 to 9) 


element- Matrice(1,1), ultimul element- 


M 


un vector cu 9 elemente (index minim=1, 


> matrice 9 linii si 9 coloane (primul 


matrice(9,9)) 


e Indexul (numărul coloanei sau numărul liniei) trebuie să se încadreze întotdeauna între 
limita minimă (0 zero) şi limita maximă declarată. Cu alte cuvinte, încercarea de a atribui 
o valoare sau de a citi un element care nu are alocat spațiu de memorie se va solda cu o 
eroare. Spre exemplu (vezi şi listing 2-2): 
MatriceNote (6, 4)=6.5 
va genera o eroare de execuție cu mesajul Subscript Out Of Range 

e In VB există şi posibilitatea declarării unor vectori (tablouri unidimensionale) dinamici 
atunci când nu se ştie de la început care va fi numărul elementelor, astfel: 


Dim Vector () > nu se specifică indexul maxim 


În acest caz, la momentul declarării nu se alocă spațiu de memorie urmând ca 
programatorul să includă instrucțiunea 

Redim Preserve Vector (Ubound (vector) +1) -atunci când are nevoie de 
spațiu pentru încă un element. Clauza Preserve este obligatorie dacă se doreşte 
păstrarea valorilor elementelor anterioare deoarece, în esenţă, instrucțiunea Redim 
determină crearea unui alt vector cu numarul de elemente specificat > clauza 
Preserve determină şi copierea vechilor valori în noile locaţii. 


lată un exemplu: 
Dim V() As String 


ReDim Preserve V(1) "primul element trebuie intotdeauna alocat explicit 
V(0) = "texto" 

ReDim Preserve V(UBound(V) + 1) 

Wik) = aute JL YU 


Deluge Pant VO a WL) ) 
Va afisa "text0textl” 


3. Algoritmi 


3.1. Algoritmi clasici de căutare şi sortare 


În munca unui programator, căutarea în diferite structuri de date reprezintă o operaţie foarte 
des efectuată. Exemplele cele mai frecvente se referă la căutarea unei anumite înregistrări dintr-un 
fişier de un anumit tip, regăsirea unei anumite valori într-un tablou care conţine mai multe elemente, 
parcurgerea unei liste în căutarea unui anumit reper, etc. În funcţie de specificul problemei concrete 
care trebuie rezolvată, fiecare dintre structurile sau valorile căutate pot avea sau nu diverse proprietăţi: 


e toate valorile sunt distincte între ele; 


e valorile sunt ordonate în conformitate cu o anumită relație de ordine (ex.: valorile dintr- 
un vector sunt ordonate crescător); 

e între două operaţiuni de câutare structura de date nu suferă modificări sau pot avea loc 
operaţiuni de inserare/ ştergere / modificare. 

De asemenea, sortarea elementelor unor liste după anumite criterii constituie o parte 
esențială a oricărei aplicaţii. 

Deşi majoritatea limbajelor de programare actuale oferă una sau mai multe tehnici 
implicite (“built in”) de căutare a unor elemente în diverse structuri de date, precum şi de 
stocare a elementelor într-o anumită ordine, totuşi orice programator trebuie să fie conştient 
de complexitatea operațiilor ce se execută în asemnea proceduri. lată de ce prezentăm în 
continuare cei mai cunoscuți, şi mai simpli, algoritmi de căutare şi sortare pe structuri statice 
de date. Algoritmii pentru structuri dinamice de date comportă o complexitate ceva mai 
ridicată şi vor fi tratați în secțiuni distincte. Trebuie să precizăm că nu există un “cel mai 
bun” algoritm, fiecare deținând propriile puncte tari şi slabe din punct de vedere al vitezei 


de execuţie sau a cantității de memorie. 


3.1.1. Căutarea în mulțimi complet ordonate 


Pentru a simplifica problema, vom considera că datele sunt stocate în vectori şi că există 
un singur criteriu de căutare. De asemenea vom lua în considerare doar cazul în care 
elementele vectorului sunt strict ordonate, pentru liste neordonate fiind necesară 
parcurgerea secventiala element cu element, caz ce poate fi uşor pus în practică. 

Unul din cei mai cunoscuți algoritmi de căutare pe mulțimi ordonate este “devide-et- 
impera”. Scopul acestui algoritm este de a returna poziția la care se găseşte valoarea căutată în 
listă. 

Astfel, presupunem că se caută valoarea A în secvența T[p..q]. reamintim că are loc T[p] < 
T[p+1] <... < T[q]. Descrierea algoritmului poate fi definită astfel: 

e se determina m cu p<m<q ca fiind poziția de mijloc a listei (m=(p+q)/2); 
e daca A= T[m] atunci câutarea se termină cu succes; 

e daca A< T[m] atunci căutarea continuă cu subsecventa T[p .. m-1]; 

e daca A> T[m] atunci căutarea continuă cu subsecventa T[m+1 .. q]. 

Aşadar, verific dacă elementul căutat nu este cumva egal cu cel aflat la jumătatea listei. 
Dacă este mai mic decât valoarea de la mijlocul listei, vom relua căutarea doar în segmentul 
de valori din stânga iar dacă este mai mare decât valoarea de la mijlocul listei vom relua 


căutarea doar în segmentul din dreapta . 


READ vector, valCheie 


inceput=0 
sfarsit=N 


mijloc=(inceput+sfarsit)/2 


vector(mijloc)<>valCheie AND 
inceput < sfarsit 


FALS vector(mijloc)>valCheie 


inceput=mijloc+1 sfarsit=mijloc-1 


vector(mijloc)=valCheie 


WRITE “Valoarea cautata WRITE “Valoare gasita pe 
nu se gaseste in lista” pozitia” + mijloc 


Figura 3-1 Schema logică pentru reprezentarea algoritmului de căutare Divide Et Impera 


lată şi implementarea în VisualBasic a algoritmului: 


Listing 3.1 Divide et Impera în VB 


Sub cauta DividektImpera (vector, valCheie) 
inceput = LBound(vector) "extrag primul index al vectorului primit ca parametru 
sfarsit = UBound (vector) "extrag ultimul index al vectorului primit ca parametru 


mijloc = Int((sfarsit + inceput) / 2) 


Do While vector (mijloc) <> valCheie And inceput < sfarsit 
If valCheie > vector(mijloc) Then 
inceput = mijloc + 1 


Else 
SE Sweat = ama) IL GE = i 
ice le IR 
mijloc = Int((sfarsit + inceput) / 2) 
Loop 


If vector(mijloc) = valCheie Then 


Debug.Print ("valoarea " & valCheie & "se afla la pozitia:" & mijloc) 
Else 

Debug.Print ("valoarea " & valCheie & "nu se gaseste in multime") 
End If 


End Sub 


Pentru a testa procedura cauta DivideEtImpera () construim o rutină care va 


furniza datele de test reprezentate sub for ma vectorului Multime : 


Sub test (valCautata) 

Dim Multime(l To 6) 

Multime (1) = -3 

Multime (2) = -2 

Multime (3) = 20 

Multime (4) = 53 

Multime (5) = 75 

Multime (6) = 80 

Call cauta DivideEtImpera (Multime, valCautata) 
End Sub 


În final se invocă procedura test(), eventual din fereastra Immediate (meniul 


View? Immediate Window) a mediului VB ca in figura 3-2 . 


“Eile Edit view Project Format Debug Run Sea Diagram Tools Add-Ins Window Help 
a-h- Teul £ Bae á xo = | > um NK m % > a m|+: EA | 


Ei TF; 
` 


[Genera — w— — =] |testCauta | 


Project1 (Projecti.vbp) 
=) 29 Forms 
È Formi (Form1.frm) 
E Form2 (Form2.frm) 
=E Modules 


Multime (4) 
Multime (5) 
Multime (6) 


pe Dim Multime(1 To 6) «a Begining (Module.bas) 
i Hultime (1) = -3 #2 CautareSortare (CautareSortare.bas) 
Multime (2) = -2 <Ë Modul! (Modul! bas) 
a Multime (3) = 20 <Š Parametri (Parametri.bas) 
= = 53 
= 75 || 


Ea] 
Properties - CautareSortare FY 
[CautareSortare Module 
Alphabetic | Categorized | 
WES) CautareSortare 


Call cauta_DivideEtImpera(Multime, valCautata) 


Immediate 


Call CautareSortare.testCauta(s0) 
valoarea 80se afla la pozitia:6 


(Name) 
Returns the name used in code to identify a Form, 
control, or data access object. 


= x| 


S, 


į Projecti - Micr... fal i EN \<] 


Figura 3-2 Testarea procedurii cauta_divideEtImpera(). 


3.1.2. Problema sortării 


Dacă problema câutării este una relativ simplă d.p.d.v. al algoritmului prezentat mai 
devreme, o problemă ceva mai complexă o constituie ordonarea elementelor unui vector; 
astfel, transformarea unui vector X într-un vector pentru care: 

X[i] <= X[i+1] ,1<=i <= n-1, 


folosind o cantitate minimă de memorie suplimentară, se numeşte sortare. 


BubbleSort 

Unul dintre cei mai cunoscuți şi utilizați algoritmi de sortare este şi cel mai slab din 
punctul de vedere al eficienţei. Este vorba de algoritmul BubbleSort (metoda bulelor). Ideea 
algoritmului este foarte simplă. Dorim să obținem un vector pentru care să fie îndeplinită 
condiţia: 

X[i] <= X[i+1] ,1<=i <= n-1. 

Dacă această condiţie este îndeplinită de la început, atunci nu trebuie să se mai 
execute nici o transformare asupra șirului. Dacă însă găsim o pereche de valori (i, i+1) pentru 
care X[i] > X[i+1] vom corecta acest aspect schimbând între ele cele două elemente. Deci o 
primă aproximaţie a algoritmului ar putea să fie următoarea: 


pentru fiecare pereche de valori execută 
{ 
dacă nu sunt în ordinea corectă atunci 
schimbă valorile între ele 


Se pune însă întrebarea dacă o astfel de parcurgere a vectorului este suficientă; să 
considerăm de exemplu şirul de valori: 

9 6 5 3 

Dacă parcurgem elementele vectorului o singură dată, utilizând algoritmul prezentat 
vom obține: 

6 5 3 9 

Se observă că cel mai mare element a ajuns în ultima poziție, dar celelalte valori nu 
sunt încă pe poziţiile corecte. Pentru exemplul considerat (care este cel mai dezavantajos 
posibil din punct de vedere al ordonării inițiale), se observă că sunt necesare N-1 parcurgeri 
ale vectorului. Dacă însă şirul valorilor este de la început ordonat, acest fapt se constată după 
o singură parcurgere. Aşadar, numarul de parcurgeri necesar depinde de ordinea inițială a 
elementelor ce formează vectorul. 

În cazul unui vector oarecare trebuie să se execute parcurgeri repetate, până ce se 
constată că s-a obținut un vector ordonat. Procesul de sortare poate fi accelerat dacă se tine 
seama de faptul că după o parcurgere o parte dintre elementele vectorului (începând de la 


cel de-al doilea din ultima pereche modificată) sunt deja sortate. 


Elemente sortate la 


Elemente analizate la următoarea 
parcurgerile anterioare 


parcurgere 


— s sss | a E 
E j C ksi 


o 


Ultima modificare 
Elementele localizate la dreapta locației ultimei interschimbări nu mai trebuie 
analizate la următoarea parcurgere, pentru că acestea sunt deja sortate deci numărul de 


perechi analizate trebuie actualizat la sfârşitul fiecărei parcurgeri, aşa cum se procedează în 


algoritmul următor (prezentat în pseudocod şi schemă logică). 


BubbleSort(X, N) 
Begin 
NP =N-—1 //NP este începutul părții sortate din lista 


DO 
UltimaModificare = 0 
pentru fiecare pereche i de la 1 la NP execută 


{ 
daca ordine incorecta atunci 
{ 
interschimba valorile 
UltimaModificare = i 
} 
} 


NP = UltimaModificare — 1 
WHILE UltimaModificare > 1 
END 


START 


READ vector, N 


©) 


i=1 
ultimaModificare=0 


vector(i)>vector(i+1) 


temp=vector(i) 
vector(i)=vector(i+1) 
vector(i+1)=temp 
ultimaModificare=i 


nrPasi=ultimaModificare-1 


ultimaModificare >0 


FALSE 


WRITE vector 


STOP 


Figura 3-3 Schema logică pentru BubbleSort (consideram plaja de valori a indexului elementelor listei: 1-N) 


lată în continuare şi implemenetarea algoritmului în VisualBasic: 


Listing 3-2 Procedura VB pentru BubbleSort 


Sub bubbleSort (vector) 
Debug.Print ("lista initiala (neordonata):") 
afiseazaVector (vector) 


nrPasi = UBound(vector) - 1 
miniIndex = LBound (vector) 
Do 


ultimaModificare = 0 
For i = minIndex To nrPasi 
TE vector(a) > vector 1) Then 
temp = vector (i) 
vector(i) = vector(i + 1) 
veci er (Gi: ar dL). emo 
ultimaModificare = i 
Eng. et 
Next 
nrPasi = ultimaModificare - 1 


Debug.Print ("pas intermediar:") 
afiseazaVector (vector) 
Loop While ultimaModificare > 1 


Debug Pa T NEC SS anes Org S sm) 
afiseazaVector (vector) 
End Sub 


Sub afiseazaVector(v) 


sin = ttt 

For i = LBound(v) To UBound (v) 
Su = Sache AE ye at 

Next 

Debug.Print (sir) 

End Sub 


Se observă că implementarea VB comportă o mică modificare fata de algoritmul 
prezentat în figura 3-3: utilizăm functiile Lbound() si Ubound() pentru a afla limita minima, 
respectiv maximă a indexului elementelor vectorului (vezi şi secțiunea 2.1 despre tablouri). 
Procedura afiseazaVector() are sarcina de a afişa elementele vectorului şi este apelata 
şi în cadrul buclei Do...While tocmai pentru a evidenția “stările” tranzitorii prin care trece 
lista de elemente la fiecare parcurgere. 

În final, pentru a testa algoritmul, construim o procedură care să definească o listă de 
numere aleator generate (funcţia Rnd ) şi care să invoce procedura bubleSort () prezentată 


mai sus. 
Sub testSortare () 
Dim MultimeNeordonata (6) 
none al = 0 O & 
MultimeNeordonata(i) = Int(Rnd * 80) “vor fi generate numere intregi 1-80 


Next 
Call bubbleSort (MultimeNeordonata) 


End Sub 
La randul ei, procedura testSortare() poate fi apelata direct din fereastra 


Immediate a mediului VB, după cum se observă si in figura ce urmează (a se observa faşii 


intermediari de sortare afişați): 


% E Ex) 
File Edit View Project Format Debug Run Query Diagram Tools Add-Ins Window Help | 


ria E 2 % 9 a m 


S-65- ESE d B m, o 


ahs att 
mi zi. | 


Sub testSortare[) 


A fal ii CI Forms 
Dim Mult imeNeordonata (6) 5-6 Modules 
[iz] =i For i = O To 6 <Š Begining (Module.bas) 
MultimeNeordonata(i) = Int(Rnd * 80) ' genereaza numere aleatoare 1-80 <š CautareSortare (CautareSortare.bas) 
Vp e Next <Š Modul (Moduli bas) 
= Call bubbleSort (Mult imeNeordonata) #8 Parametri (Parametri.bas) 
EB 
s» al End Sub 
af 
= Sub testCauta(valCautata) 
' E = Ë 2, 
c] Dim Multime(1 To 6) x] 
Hultime (1) = -3 A 
6 îi Hultime (2) = -2 CautareSortare Module z] 
= Hultime (3) = 20 rtare.testSortare Alphabetic | categorized | 
la (neordonata): 
in sa] 56,42,46,23,24,61,1, OETI CautareSortare 


pas intermediar: 
42,46,23,24,56,1,61, 
pas intermediar: 
42,23,24,46,1,56, 61, 
pas intermediar: 
23,24,42,1,46,56,61, 
pas intermediar: 
23,24,1,42,46,56,61, 
pas intermediar: 
23,1,24,42,46,56, 61, 
pas intermediar: 
1,23,24,42,46,56, 61, 
Lista sortata: 
1,23,24,42,46,56,61, 


Returns the name used in code to identify a form, 
control, or data access object, 


= 


m Visual Basic 


Figura 3-4 Testarea procedurii bubbleSort(). 


Sortarea prin insertie 

Una dintre familiile importante de tehnici de sortare se bazează pe metoda 
“jucătorului de bridge” (atunci când îşi aranjează cărţile), prin care fiecare element este 
inserat în locul corespunzător în raport cu elementele sortate anterior. 

Principiul de bază al algoritmului de sortare prin insertie este următorul: se 
presupune că subsecventa (X[1], ... , X[k-1]) este sortată. Se caută în această subsecventa 
locul i al elementului X[k] şi se inserează X[k] în poziţia i. Poziţia i este determinată astfel: 

e i=1 daca X[k] < X[1]; 
e 1<i<ksisatisface X[i-1] <= X[k] < X[i]; 
e i=k daca X[k] >= X[k-1]. 

Poziţia elementului i este determinată prin câutare secventiala de la dreapta la stânga simultan 

cu deplasarea elementelor mai mari decât X[i] cu o poziţie la dreapta. Cu alte cuvinte: 

e lista se parcurge de la stânga spre dreapta 

e la fiecare pas al parcurgerii listei elementul curent este memorat într-o variabilă distinctă 
(să zicem temp) 

e procesul de parcurgere începe cu cel de-al doilea element al listei; dacă este mai mare 
decât primul rămâne pe loc, iar dacă nu (este mai mic decât primul), primul trece pe locul 


celui de-al doilea iar cel de-al doilea trece pe primul 


e pentru al treilea element al listei procesul se reia: 
o se memorează în variabila temp 
o se parcurge lista înapoi până găsim un element <= temp ; la acest moment locul 
valorii memorate în temp este imediat după elementul mai mic decât temp 
(dacă găsim un asemenea element, procesul de căutare înapoi se opreşte pentru 
că toate elementele la stânga sunt deja sortate în paşii anteriori); odată cu 


parcurgerea înapoi, elementele > temp se deplasează cu o poziţie la dreapta. 


O 


Dacă, în urma căutării în submultimea din stânga nu se găseşte nici un element 
<=temp, înseamnă că valoarea memorată în temp este cea mai mică la momentul 
actual şi o plasăm pe prima poziție 


e Procesul se repetă pentru al patrulea element, ş.a.m.d 


sortate U 30 


sortate 


sortate { 25 


sortate 


= | |N |m 
a|lS|ules|T 


Lista sortată 


Iată şi schema logică a acestui algoritm 


READ vector, N 


Temp=vector(i) 


FALSE 


K>0 AND 
ocGasit=false 


FALS vector(k)>Temp 


vector(k+1)=vector(k) 


LocGasit=true 


vector(k+1)=Temp 


WRITE “multime sortata :” vector 
STOP 


Figura 3-5 Algoritmul InsertSort. (domeniul de valori al indexului vectorului se consideră 1 : N) 


Listing 3-3 Algoritmul InsertSort implementat în VB 


Sub insertSort (vector) 


Debug.Print ("MULTIMEA INITIALA (neordonata): " & getStringFromVector(vector) & 
(laze ((13))))) 
For i = LBound(vector)+l To UBound (vector) 
temp = vector (i) 
Debug.Print (" valoarea temp la pasul- " & i & " - este :" & temp) 
locGasit = False 
k = i - 1 


Do While (Not locGasit) And k >= LBound(vector) 
If temp > vector(k) Then 


locGasit = True 
Else ' (deplasez elementul mai mare cu o pozitie la dreapta) 
vector(k + 1) = vector(k) 
ie ae nl: 
lye) AIE 
Loop 
vector(k + 1) = temp 
Debug Print (UU dupa executia pasului - " & i & " - vectorul arata astfel: " 


& getStringFromVector (vector) ) 


Next 
Debug.Print (Chr(13) & "MULTIMEA ORDONATA: " & getStringFromVector (vector) ) 


End Sub 


Function getStringFromVector (v) 


sir = mn 

For i = LBound(v) To UBound(v) 
alse = ala fe I teru 

Next 

getStringFromVector = sir 


End Function 


lată şi procedura care va furniza datele de test : 
Sub testSortare() 


Dim MultimeNeordonata (6) 
nore sk = (0) We 6 

MultimeNeordonata(i) = Int(Rnd * 80) ' genereaza numere aleatoare 1-80 
Next 

Call insertSort (MultimeNeordonata) 


End Sub 
Cateva comentarii asupra implementarii VB: 


e În VB, pentru a porni procesul repetitiv de căutare a poziţiei de la 
elementul al doilea, (For i=Lbound (vector) +1 to 
Ubound(vector)) utilizăm funcţiile LBound(vector) şi Ubound(vector) 
pentru a obține limita inferioară, respectiv limita superioară a indexului 
elementelor. În cazul de fata, elementele vectorului sunt indexate de la 0 (in 
precedura testSortare(), vectorul pentru test este declarat in mod 


clasic, Dim MultimeNeordonata(6), adică 7 elemente: de la 0 la 6). 


Elementele vectorului MultimeNeordonata se generează aleator prin 
utilizarea funcției Rnd care returnează un număr aleator real cuprins între 
limitele 0 şi 1 

e Pentru fiecare pas al buclei FOR se afişează valoarea elementului curent 
(memorat în variabila temp) a cărui poziție este căutată în subşirul ordonat 
din stânga poziţiei acestuia (operatorul & concatenează operanzii într-un 


singur şir de caractere): 
Debug.Print (" valoarea temp la pasul- " & i & " - este :" & temp 
e De asemenea, pentru fiecare pas al buclei FOR, după execuţia prelucărilor 


specifice, se afişează conţinutul curent al vectorului parţial ordonat. 


Debug.Print (" dupa executia pasului - " & i & " - vectorul arata astfel: " & 
getStringFromVector (vector) ) 


e În final (după ieşirea din bucla FOR) se afişează vectorul ordonat 


(CHR (13) returnează caracterul specific pentru a obține o linie liberă) 
Debug.Print (Chr(13) & "MULTIMEA ORDONATA: " & getStringFromVector (vector) ) 
e Pentru afişarea vectorului (în diferite ipostaze) s-a construit funcția 


getStringFromVector() care preia un tablou unidimensional ca 
argument şi returnează un şir de caractere obținut din elementele 
vectorului separate prin virgulă 


(General) ` jinsertSort >] 


Debug.Print (Chr(13) & "MULTIMEA ORDONATA: " & getStringFromVector (vector) ) 


End Sub 


Sub testSortare |) 


Dim MultimeNeordonata(6 
Fon i = 0 To 6 

MultimeNeordonata(i) = Int(Rnd * 80) ' genereaza numere aleatoare 1-80 
Next 

Call insertSort (MultimeNeordonata) 


End Sub 


call testSortare |) 
MULTIMEA INITIALA (neordonata): 56,42,46,23,24,61,1, 


este :42 
vectorul arata astfel: 42,56,46,23,24,61,1, 
este :46 
vectorul arata astfel: 42,46,56,23,24,61,1, 
este :23 
vectorul arata astfel: 23,42,46,56,24,61,1, 
este 3:24 
vectorul arata astfel: 23,24,42,46,56,61,1, 
este :61 
vectorul arata astfel: 23,24,42,46,56,61,1, 
este :1 
vectorul arata astfel: 1,23,24,42,46,56,61, 


valoarea temp la pasul- 
dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului - 
valoarea temp la pasul- 
dupa executia pasului — 


mm m (n (n bWUWNNH p. 


MULTIMEA ORDONATA: 1,23,24,42,46,56,61, 


Figura 3-6 testarea algoritmului insertSort 


3.2.  Recursivitate 


Prin recursivitate se intelege faptul ca un subprogram se apeleaza pe el insusi, 
apelul fiind generat atunci cand subprogramul este inca activ. Exista două tipuri de 
recursivitate: 

1) recursivitate directa - cand un subprogram se autoapeleaza in corpul sau ; 
2) recursivitate indirecta - cand avem doua subprograme (x si y), iar x face apel 
la y si invers ; 

Într-o formă generală, o procedură recursivă poate să arate astfel: 


Private Sub procedura () 
i abac then call procedura 
End Sub 

Se observă că nu există o sintaxă specializată pentru a specifica recursivitatea, 
simplul fapt că în corpul procedurii există un apel la ea însăşi fiind suficient pentru a 
obține o subrutină recursivă. Lucrurile se petrec întocmai ca pentru orice proces de 
invocare a unei subrutine: rutina principală îşi suspendă execuţia în timp ce controlul 
este transferat unei alte instanțe a aceleiaşi proceduri. 

Se folosesc algoritmi recursivi atunci cand calculele aferente sunt descrise in 
forma recursiva. 

Ca prim exemplu vom apela la N factorial. Funcţia N factorial poate fi descrisă în 
două moduri: 

1 - liniar - fact(N)=N x N-1 x N-2...x1 

2 - recursiv - fact(N) = 1 daca n=1 

= N x fact(N-1) pentru n>1 

Astfel, prima variantă (descrierea liniară) poate fi implementată într-un algoritm 
prin iteratie (structura de control repetitivă - vezi în capitolul 1.2 secțiunea dedicată 
structurilor fundamentale de control) . 

Cea de-a doua variantă de descriere a funcției va fi implementată printr-un 
algoritm recursiv. 

Un subprogram recursiv trebuie scris astfel incat sa respecte regulile : 

a) Subprogramul trebuie sa poata fi executat cel putin o data fara a se 
autoapela ; 
b) Procesul de autoapel va avea la bază o asemenea logică încât să se tindă 

spre situația de execuţie fara autoapel. 

Cu alte cuvinte, într-o funcție recursivă întotdeauna va exista un test de genul 


IF cond THEN return valoare ELSE apel recursiv 


Iată algoritmul recursiv pentru N factorial implementat in VB: 


Function factorialRecursiv (n) 


If n = 1 Then 
factorialRecursiv = 1 
Else 
factorialRecursiv = n * factorialRecursiv(n - 1) 
Pra Jae 
End Function 


Function factorialRecursiv in) 


If n = 1 Then 
factorialRecursiv 
Else 
factorialRecursiv n * factorialRecursivin - 1) 
End If 
End Function 


po 


Debug. print (factorialRecursiv (4) } 
24 


Figura 3-7 Testarea functiei recursive factorialRecursiv() 


> Apel functie 


(invocare) 


-- jJ) Transfer rezultat 


Return 24 


Figura 3-8 Pasii parcursi la executia functiei factorialRecursiv() cu n=4 


Ce se intimpla de fapt? Mai întîi se apeleaza funcția factorialRecursiv() de n-1 ori 
fara a ajunge la un rezultat. Fiecare instanță a funcţiei (văzută ca proces separat în 
memorie) îşi suspendă execuția asteptand un rezultat de la funcția apelată. La cel de- 
al n-lea apel, parametrul actual n este 1 şi algoritmul nu mai intră pe ramura False a 
structurii IF ci pe ramura True. În acest caz funcția returnează valoarea 1 şi îşi 
opreşte execuția (nu se suspendă ci se încheie definitiv), moment în care se 
declanşează un proces în cascadă de returnare de valori de la o funcție la alta pe 
niveluri descrescătoare. Limbajul gestionează funcțiile cu execuția suspendată prin 
intermediul unei stive (vezi capitolul 2 dedicat structurilor de date dinamice), prima 
funcţie apelată (EactorialRecursiv (4) ) fiind ultima care primeşte un rezultat. 

Pentru implementarea recursivitatii se foloseste o zona de memorie in care se 
poate face salvarea temporară a unor valori. La fiecare appel recursiv al unui 
subprogram se salveaza in aceasta zona de memorie starea curenta a execuţiei sale 
(toate valorile variabilelor la moemntul suspendării execuției). 

Deşi variabilele locale ale subprogramului apelant au aceleaşi nume cu cele ale 
subprogramului apelat, orice referire la aceşti identificatori se asociaza ultimului set 
de valori alocate in zona de memorie. Zona de memorie ramâne alocată pe tot 
parcursul executiei subprogramului apelat si se dealocă în momentul revenirii in 
programul apelant. Zona de memorie nu este gestionata explicit de programator ci 
de catre limbaj. 

La terminarea executiei subprogramului apelat recursiv, se reface contextul 
programului din care s-a facut apelul. Datorita faptului ca la fiecare autoapel se 
ocupa o zona de memorie, recursivitatea este eficienta numai daca numarul de 
autoapelari nu este prea mare pentru a nu se ajunge la umplerea zonei de memorie 
alocata. 

Recursivitatea ofera avantajunl unor soluții algoritmice mai clare pentru probleme 
de o anumită natură. Ea prezintă insă dezavantajul unui timp mai mare de execuţie şi 
a unui spațiu de memorie alocată mai mare. Este de preferat ca atunci cand 
programul recursiv poate fi transformat intr-unul iterativ sa se faca apel la cel din 


urmă. 


În continuare vom prezenta alte câteva exemple de algoritmi recursivi clasici. 
Sirul lui Fibonacci ( descoperit in 1202 de catre Leonardo Pisano (Leonardo din Pisa), 
cunoscut sub numele de Leonardo Fibonacci) este definit prin următoarea recurenţă: 
fib:N->N 
fib(n)=1, daca n=0 sau n=1 
=fib (n-2)+fib (n-1), daca n>1 


Iată câteva din numerele acestui şir: 1,1,2,3,5,8,13... 


Iată şi implementarea algoritmului recursiv in VB: 


Function fibonacciNumber (n) 
If n = 1 Or n= 0 Then 
Debug.Print (1) 
fibonacciNumber = 1 
Else 
fibonacciNumber = fibonacciNumber(n - 1) + fibonacciNumber(n - 2) 


lieve) ICSE 


Se observa ca a fost introdus si un apel de afisare a valorii 1 in scopul de a sesiza de cate 


fib rec(4) 
fib rec(1 
> ree(1) 


Figura 3-9 Apeluri recursive pentru aflarea numărului de pe poziţia 5 din şirul Fibonacci 


se trece prin acelaşi pas. 


După testarea acestui algoritm cu N=40 să zicem, se va observa cât este de ineficient (ca 
timp de execuţie) deoarece recalculeaza de mai multe ori aceleaşi valori. 


lată şi o rezolvare iterativă a aceluiaşi algoritm, care necesită timp liniar. 
Function fib2(n) 


al 
al 


For k = 2 Ton 
Debug.Print (J) 
ISL 

j=- 3: 


Ea 
ot 


End Function 
Se va observa, la testarea acestui ultim algoritm cu acelaşi N=40, că timpul de executie 


este sensibil mai scurt. 
Testarea celor două variante de rezolvare demonstrează afirmaţia că algoritmii recursivi 
oferă o rezolvare mai elegantă şi mai uşor inteligibilă a anumitor probleme, dar comportă un 


risc d.p.d.v al optimizării vitezei de execuție. 


Inversarea unui text. Presupunem că dorim să construim o funcție care, pe baza unui şir 
de caractere primit ca parametru să returneze şirul respectiv în ordine inversă (de la drepta 
la stânga. Funcţia poate fi descrisă recursiv astfel: 
textInvers (text) = text daca lungimea textului este 1 (1 caracter) 


= ultimChar + textInvers (text - ultimChar) daca lungime text >1 


TextInvers(‘‘abed”)=d+(textInvers(abc)) E» dcba 
cba 


= c? textlnvers(ab) 
ba 
= b+textlnvers(a) 
di P i 
=a 


lată şi implementarea algoritmului în VB 


en 338) 


(General) v| |textinversat X 


Function textInversat (text As String) 


If Len(text) = 1 Then 
textInversat = text 
Else 


textInversat = Right (text, 1) + textInversat(Left(text, Len(text) - 1)) 
End If 


End Function 


debug. Print (textInversat ("Moldova n-a fost a mea ...")) 
. aem a tsof a-n avodloM 


Figura 3-10 Implementarea algoritmului textinversat() in VB si testarea functiei 


Pentru detalii despre funcţiile predefinte VB Right (), Left(), Len(), vezi cap 


12 din lucrarea Finaru,L., Brava,I. - “VB-Primii paşi... şi următorii” 


